Дан массив состоящ из 15 целых чисел, заполненых случ. образом в промежутке от - 10 до 10. Найти максимальный элемент и заменить его значение на 50 Pascal

Question

Информатика

Миля

14 мая, 02:54

Дан массив состоящ из 15 целых чисел, заполненых случ. образом в промежутке от - 10 до 10. Найти максимальный элемент и заменить его значение на 50 Pascal

+1

Ответы (1)

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

Софон · Answer 1

Var

a:array[1 ... 15] of integer;

max, i:integer;

begin

for i:=1 to 15 do

begin

readln (a[i]) ;

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

end;

writeln (max) ;

end.