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

Ответы 1

  • yughhhhhhhhhhijioyhjk
    answer img
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years