Решить задачу поиска наибольшего элемента массива. Массив заполнить случайными числами из...

Question

Решить задачу поиска наибольшего элемента массива. Массив заполнить случайными числами из диапазона [0,99]. Задача. Напишите программу, в которой осуществляется формирование целочисленного массива A из десяти элементов, значения которых лежат в диапазоне от 0 до 99, и поиск наибольшего элемента этого массива. ЯЗЫК ПАСКАЛЬ!!!!!!

Answer 1

Ответ:

program HelloArray;

var

a: array[1..10] of integer; // Объявим переменную массива целочисленных чисел

i, max: integer; // Объявим переменную счетчика

begin

max := 0;

randomize; // Включим генератор случайных чисел

for i:=1 to 10 do // цикл от 1 до 10

begin  

a[i] := random(100);// Каждому элементу массива присвоим значение в диапазоне [0; 99]

if a[i] > max then  // Проверяем условие максимума

   max := a[i];  // Присваиваем максимум

end;

Writeln(max);

end.