anastasiagrebep08n1o

23.03.2020 10:45 •  Информатика

Составить блок-схему по коду 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.