Регистрация
vovabondar28
08.12.2020 00:53
Информатика
Есть ответ 👍

Нарисовать блок схему для программы​

275
329
Посмотреть ответы 1

Ответы на вопрос:

Leonelle
Leonelle
4,4(44 оценок)

паскаль, одномерный массив

 

var a: array [1..6] of integer; i, max: integer;

begin

for i: =1 to 6 do read(a[i]);

max: =a[1];

for i: =1 to 6 do

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

writeln(max); readln; end.

 

Популярно: Информатика