исправить ошибки в паскале
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.
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.
Answers & Comments
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.
Делал в текстовом файле (паскаля нет). Проверь...
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.