var mas: array[-1000..1000] of integer; i, min, max, n, razn: integer;begin //ввод количества элементов массива readln(n); //ввод массива и его вывод на экран randomize; for i := 1 to n do begin mas[i] := 500 - random(1000) - 1; write(mas[i]:5); if (i mod 10 = 0) then writeln; end; //поиск минимума и максимума min := mas[1]; max := mas[1]; for i := 2 to n do begin if (mas[i] < min) then min := mas[i]; if (mas[i] > max) then max := mas[i]; end; //нахождение разности razn := max - min; writeln; writeln('Разность = ',razn);end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
