Составьте программу которая заполняет массив от 1 до 10 случайными целыми числами в диапазоне от 0 до 10 находит максимальный элемент массива затея вычисляется сколько раз встречается в массиве
var a:array[1..10]of integer;min,max,i:integer;beginfor i:=1 to 10 do a[i]:=random(11);for i:=1 to 10 do write(a[i],' ');writeln;min:=a[1];max:=a[1];for i:=2 to 10 do beginif a[i]max then max:=a[i];end;writeln(max min);end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
