В чем ошибка? Двумерные массивы. Задание:
В матрице А(5,6) найти среднее арифметическое всех элементов, удовлетворяющих условию: Вывести на печать матрицу А и среднее арифметическое значение. (pascal)
Программа:
const n = 5; m = 6;
var A: array [1..n,1..m] of integer;
i, j, sum, k: integer;
sr:real;
begin
randomize;
writeln('Массив A: ');
for i:= 1 to n do
begin
for j:= 1 to m do
begin
A[i, j] := random(101) - 50;
write(A[i, j]:3,' ');
if (A[i, j] >= -1) and (A[i, j] <= 1) then
end;
writeln;
end;
writeln;
sum := 0;
k := 0;
for i:= 1 to n do
for j:= 1 to m do
begin
sum:=sum+A[i, j];
inc(k);
sr:=sum/k;
if (k > -1) then
writeln('Среднее = ', sr:2:2)
else
writeln('Таких чисел нет');
readln;
end;
end.
152
205
Ответы на вопрос:
1) структурировать его(написать по пунктам)
2) сократить, оставив только самое важное(вариант подойдет, если тебе нужно выучить текст)
3) сделать таблицу или схему на основе текста
Популярно: Информатика
-
netunikaa29.09.2022 15:06
-
Gdbxfg04.04.2021 06:06
-
sahechka11105.05.2021 01:27
-
trinadsyear10.02.2020 01:46
-
0blako03.03.2022 00:26
-
Кристи180104.05.2023 03:47
-
adobycina4310.12.2021 08:33
-
Write23413.03.2022 08:32
-
Amexinia20.03.2021 05:56
-
matve22803.12.2022 10:39