• исправить ошибки в паскале

    program massiv2 ;

    type mas=array [1..100] of integer ;
    var a:= Max; i, n, min , max, b : integer; недопустимый символ:= (д/б просто : ; неизвесмтное имя типа max)
    begin
    writeln ('n='); readln (n) ;
    for i:=1 to n do
    begin
    writeln ('a[',i,'=');переменная а не является именем массива
    readln (a [i]); end;
    max :=a[ 1 ]; min :=a[ 1 ]; переменная а не является именем массива
    for i:=1 to n do begin
    if a[ i ]> max then max :=a[ i ] ; переменная а не является именем массива
    if a[ i ] end;
    b:=max - min ;
    writeln (b) ; writeln;
    end.

Ответы 4

  • спасибо за ваш ответ)
    • Автор:

      arjunmsib
    • 5 лет назад
    • 0
  • спасибо за помощь)
  • type mas=array [1..100] of integer ;var a:= Max; i, n, min , max, b : integer;beginwriteln ('n='); readln (n) ;   write ('a[1]= ');   readln (a [1]);   max :=a[ 1 ]; min :=a[ 1 ];for i:=2 to n do  begin  write('a[',i,']= ');  readln(a[i]);  end;      for i:=1 to n do    begin    if a[ i ]> max then max :=a[ i ];    if a[ i ]< min then min :=a[ i ];    end;  b:= max - min ;writeln (b) ; writeln;end. Делал в текстовом файле (паскаля нет). Проверь...
  • program massiv2;type  mas = array [1 .. 100] of integer;var  a: mas;  i, n, min, Max, b: integer;begin  write('n=');  readln(n);  for i := 1 to n do  begin    write('a[', i, ']=');    readln(a[i]);  end;  Max := a[1]; min := a[1];  for i := 1 to n do  begin    if a[i] > Max then      Max := a[i];    if a[i] < min then      min := a[i];  end;  b := Max - min;  writeln(b);  writeln;  readln;end.
    • Автор:

      taniya
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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