Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Yughhhhhhhhhhijioyhjk