*Выполни заддание в тетради. ответьте письменно на вопросы в тетради:* 1) Что такое Python
2) Команды для создания новой программы
3) Команды для сохранения программы
4) Команду для запуска программы на исполнение
5) Функцию вывода результат на экран и ее функции
begin
var a:=MatrixRandom(7,7,0,9);
var k:=0;
for var i:=0 to 6 do begin
for var j:=0 to 6 do begin
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Тестовое решение:
2 1 7 3 3 2 7
9 2 9 2 0 5 5
4 2 6 9 4 6 0
1 0 3 5 4 5 9
6 3 6 0 2 0 8
0 8 4 3 2 1 8
6 0 4 4 5 4 0
Кол-во элементов на [1,5]: 27
Вариант "совсем для школы"
const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Ошибок несколько:
1. Нету ввода a,b,c (команда read)
2. В каждом if после then ты делаешь три присваивания, их надо обернуть в begin - end
3. Не понятна логика if-then-else. Например, после if b>c then у тебя два else. Используй отступы, чтоб было нагляднее, например:
if b>c then
begin
min:= c;
avg:= b;
max:= a;
end
else
begin
min := b;
avg := c;
max := a
end
Ещё, чтобы сделать все эти проверки нагляднее, можешь попробовать использовать такую конструкцию:
if (a>b) and (b>c) then
begin
min:= c;
avg:= b;
max:= a;
end
Тогда тебе не будут нужны else и ты в них не запутаешься.
4. Переменные min, avg, max должны быть описаны в секции var
5. В строке writeln ('минимальное число= ',min, среднее число= ', avg 'максимальное число= ', max) пропущена кавычка перед словом "среднее" и запятая после "avg"
6. Нужна точка с запятой в конце строки writeln
У меня на Паскаль АВС работает:
program a3;
var
a, b, c, min, avg, max: integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if (a>b) and (b>c) then begin min:=c; avg:=b; max:=a; end;
if (a>c) and (c>b) then begin min:=b; avg:=c; max:=a; end;
if (b>a) and (a>c) then begin min:=c; avg:=a; max:=b; end;
if (b>c) and (c>a) then begin min:=a; avg:=c; max:=b; end;
if (c>a) and (a>b) then begin min:=b; avg:=a; max:=c; end;
if (c>b) and (b>a) then begin min:=a; avg:=b; max:=c; end;
writeln ('минимальное число= ',min, ' среднее число= ', avg, ' максимальное число= ', max);
end.