Пожалуйста помогите составить блок-схему по коду 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,'...
Пожалуйста помогите составить блок-схему по коду
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.
Гость
Ответ(ы) на вопрос:
Не нашли ответ?
Похожие вопросы