Исправить ошибки в паскале 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.
Dadahkkkaaa001
1
16.09.2019 07:30
2
Другие вопросы по теме Информатика
слополоп
18.11.2020 11:17
lyskoyana39
10.01.2021 19:01
Maxyim
10.01.2021 19:11
Violent111
10.01.2021 19:14
dorof077
10.02.2021 10:03
сашамо
09.01.2020 13:50
Loader
09.01.2020 13:54
nikitanehaenko1
09.01.2020 13:57
Популярные вопросы
- Определить число атомных слоёв золотого покрытия 5мкм метров? Физика 10 класс...
2 - Запишіть вираз -х×(2х-1)+2 у вигляді многочлена...
2 - :C 1. Дан треугольник AEP. ∠ A = 51°, ∠ E = 34°. Определи величину ∠ P. ∠ P =...
2 - Сколько будет 2+2? калькулятор не работает......
2 - Рассчитать величину дисконтированных затрат при следующих данных...
3 - Задание 4. Известно, что расстояние между гребнями волн 10 м. При этом скорость...
3 - Правильно відображено творення дієприслівника доконаного виду в рядку А викликавши...
1 - Open the brackets and put the verbs into the correct tense form: 1. At that moment,...
3 - ЗА ДАНИЕ 1. 1) Декодировать текст, непользуя программу БЛОКНОТ (Удерживая клавишу...
1 - Привет, добрый человек Расскажите об одной составляющей операторского мастерства...
3
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.