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

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.

Question

Информатика

Евстолия

23 февраля, 16:21

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

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.

+5

Ответы (2)

Знаете ответ?

Минуша · 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.