Терміново! Вкажіть результат виконання фрагменту програми: S:=0; i:=1; repeat
s:=sti: i:=i+1 untіl іѕ2:

251

468

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

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

jeneksoul1997

Информатика

4,5(51 оценок)

uses crt; var a: array[1..100] of real; i,n,ind: integer; min,min2: real; begin clrscr; write('n='); read(n); writeln('massiv: '); for i: =1 to n do read(a[i]); min: =a[1]; min2: =a[1]; for i: =1 to n do begin if a[i]< min then begin min: =a[i]; ind: =i; end; end; for i: =1 to n do begin if (i< > ind) then if (a[i]< min2) then min2: =a[i]; end; write(min,' ',min2); end.