Laak
5 год назад
исправить ошибки в паскалеprogram massiv2 ;type mas=array [1..100] of integer ;var a:= Max; i, n, min , max, b : integer; недопустимый символ:= (д/б просто : ; неизвесмтное имя типа max)beginwriteln ('n='); readln (n) ;for i:=1 to n dobeginwriteln ('a[',i,'=');переменная а не является именем массиваreadln (a [i]); end;max :=a[ 1 ]; min :=a[ 1 ]; переменная а не является именем массиваfor i:=1 to n do beginif a[ i ]> max then max :=a[ i ] ; переменная а не является именем массиваif a[ i ]end;b:=max - min ;writeln (b) ; writeln;end.
ОТВЕТЫ
Захари
Oct 24, 2020
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.
Делал в текстовом файле (паскаля нет). Проверь...
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.
Делал в текстовом файле (паскаля нет). Проверь...
441
Смежные вопросы:
