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.
перевести в с++

vhidfhv132    3   09.01.2020 08:13    3