много, где ошибки... должно быть так:
Объяснение:
const
n = 5;
m = 6;
var
A: array [1..n, 1..m] of integer;
i, j, sum, k: integer;
sr: real;
begin
randomize;
sum := 0;
k := 0;
writeln('Массив A: ');
for i := 1 to n do
begin
for j := 1 to m do
begin
A[i, j] := random(20) - 10;
write(A[i, j]:3, ' ');
if (A[i, j] >= -1) and (A[i, j] <= 1) then
begin
sum := sum + A[i, j];
inc(k);
end;
end;
writeln;
end;
writeln;
if (k > 0) then
begin
sr := sum / k;
writeln('Среднее = ', sr:2:2)
end
else
writeln('Таких чисел нет');
end.
Компью́терная гра́фика (также маши́нная графика) — область деятельности, в которой компьютеры наряду со специальным программным обеспечением используются в качестве инструмента как для создания (синтеза) и редактирования изображений, так и для оцифровки визуальной информации, полученной из реального мира, с целью дальнейшей её обработки и хранения.
Веб-программирование — раздел программирования, ориентированный на разработку веб-приложений (программ, обеспечивающих функционирование динамических сайтов Всемирной паутины).
Языки веб-программирования — это языки, которые в основном предназначены для работы с веб-технологиями. Языки веб-программирования можно условно разделить на две пересекающиеся группы: клиентские и серверные.
Объяснение:
