program z6;
var A:array[1..10] of integer;
i, k, max: integer;
BEGIN //Случайным образом присвоим значения элементам массива и выведем его на экран
for i:=1 to 10 do A[i]:=random(50);
write ('Массив: ');
for i:=1 to 10 do write(A[i], ' ');
//Здесь будем сравнивать значения из массива и найдем максимальное
max:=A[1];
for i:=2 to 10 do
if A[i]>max then max:=A[i];
writeln;
writeln ('Наибольшее значение в массиве:', max);
END
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
