Регистрация
маринапашко2000
10.01.2020 04:29
Информатика
Есть ответ 👍

Program primer;

const n=5;

var a: array [1..n] of integer;

min, k,i : integer;

begin

for i: =1 to n do

readln (a[i]);

for i: =1 to n do

if a[i]> 0 then begin

min: =a[i];

k: =i;

i: =n+1;

end;

for i: =k+1 to n do

if (a[i]> 0) and (a[i]
writeln (min);

end.
перевести в с++

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

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

НикитаГоровой
НикитаГоровой
4,7(84 оценок)
Зрительная система мозговая функциональная система

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