Question

Исправить ошибки в паскале 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.

Answer 1

Type mas=array [1..100] of integer ;
var a:= Max; i, n, min , max, b : integer;

begin

writeln ('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.

Делал в текстовом файле (паскаля нет). Проверь...

Answer 2

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.