Богдана348

10.05.2021 04:59 •  Информатика

Составить блок-схему по коду program massiv; var a: array[1..100] of real; mas: array[1..10] of integer; i, n: integer; max, rowmax: real; begin write ('n='); readln (n); for i: =1 to n do begin write('a[',i,']='); readln (a[i]); end; max: =mas[1]; rowmax : =1; for i: =2 to n do begin if a[i]> max then begin max: =a[i]; rowmax: =i; end; end; writeln('наибольшее число: ',max); writeln('является ',rowmax, '-м членом последовательности'); readln; end.