составить программу на языке паскаль для нахождения максимального элемента в массиве из 7 элементов (целых двухзначный чисел) заданного случайным образом

Question

Информатика

Галиха

11 февраля, 19:06

составить программу на языке паскаль для нахождения максимального элемента в массиве из 7 элементов (целых двухзначный чисел) заданного случайным образом

+1

Ответы (1)

Знаете ответ?

Муша · Answer 1

uses crt;

var a:array [1 ... 100] of integer;

max, i, n:integer;

begin

randomize;

for i:=1 to 7 do

begin

a[i]:=random (90) + 10;

write (a[i],' ') ;

end;

writeln;

max:=a[1];

for i:=1 to n do

if a[i]>max then max:=a[i];

write ('max=', max) ;

end.