Найти максимальный элемент этого массива const n=20; var a: array[1..n] of integer; i,max: integer; begin randomize; for i: =1 to n do a[i]: = random(90)+10; for i: =1 to n do write(a[i]: 4); writeln; for i: = to n do if a[i] then max: = ; writeln('max: ', ); end.

ученик22826 ученик22826    1   25.07.2019 04:40    1

Ответы
dima1107 dima1107  03.10.2020 12:18
Вероятно имеется в виду, что некоторые строки нужно исправить.

в третьей строке я добавил бы спереди слово var:
var i,max: integer;

а хвост программы подправил бы так:
writeln;
max := a[1] ;
for i:= 2 to n do
if a[i] > max then max:= a[i] ;
writeln('max: ', max );
end.

жирным выделены добавки к исходному тексту.
ПОКАЗАТЬ ОТВЕТЫ
prvvk prvvk  03.10.2020 12:18
Решение данной задачи прикреплено ниже.
Найти максимальный элемент этого массива const n=20; var a: array[1..n] of integer; i,max: integer;
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика