ПОЖАЛУЙСТА СРОЧНО!!!!!НОМЕР 5 а если нет то 6 программу и алгоритм. ПАСКАЛЬ

0 интересует 0 не интересует
47 просмотров

ПОЖАЛУЙСТА СРОЧНО!!!!!НОМЕР 5 а если нет то 6 программу и алгоритм. ПАСКАЛЬ


image

Информатика (32 баллов)
оставил комментарий Начинающий (748 баллов)

паскаль?

оставил комментарий (32 баллов)

да

оставил комментарий Начинающий (748 баллов)

могу 6 написать

оставил комментарий (32 баллов)

давай

Дан 1 ответ
0 интересует 0 не интересует
Начинающий (748 баллов)

Var 
com:array[1..1000] of integer;
i,max :integer;
beginmax:=0;
for i:=1 to 10 do begin readln(com[i]);
if maxend;
writeln('max=',max);
end.


алгоритм 

вводим числа в массив 
переменную max приравниваем 0 
перебираем все числа в массиве через цикл
цикл 
нач.
если число com[i]  меньше max то max равен com[i]

кон.
выводим макс 

...