Регистрация
Зайка122222222
01.03.2020 20:58
Информатика
Есть ответ 👍

очень Скрины прилагаются. Сдать нужно сегодня!!!

112
428
Посмотреть ответы 1

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

mar244144
mar244144
4,6(44 оценок)

должно работать:

program prim;

var a: array[0..99999] of integer;

i: byte;

f: integer;

b,c: integer;

begin

for i: =0 to 99999 do begin

readln(a[i]);

if a[i]=0 then break;

f: =i;

end;

for i: =0 to f do begin

if a[i]> c then begin  

if a[i]> b then b: =a[i] else c: =a[i];  

end; end;

writeln(b, ' ',c);

end.

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