Регистрация
ilinasmirnova5
22.08.2020 05:46
Информатика
Есть ответ 👍

, задание информатика

157
380
Посмотреть ответы 1

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

howl111
howl111
4,8(78 оценок)

program p; var      n, i : integer;       max, imax: integer; begin      write('enter 10 numbers ');             for i : = 1 to 10 do      begin            read(n);                         if i = 1 then            begin                  max : = n;                   imax : = i;             end            else                  if n > max then                  begin                        max : = n;                         imax : = i;                   end;       end;             writeln('max = ', max);       writeln('index = ', imax);             readln; end.

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