Дан двумерный массив размерностью 10х10, посчитать среднее арифметическое всех его эл-ов.

program massif;
const
a = 10; // задаём массиф 10х10 естетственно можно менять размерность
b = 10;
var
i, j, k : integer;
srarif : real;
mass : array[1..a, 1..b] of real; // двумерный массив
begin
randomize; // запускаем генератор случ. чисел
// заполняем массив случ числами, не вручную же
srarif := 0;
for i := 1 to a do
begin
for j := 1 to b do
begin
mass[i, j] := random(100); // заполн. случ числами от 0 до 100
write(mass[i, j]:4:1, ' '); // сразу выводим массив для налядности
inc(k); // увел k на еденицу, считаем кол-во эл-тов
srarif := srarif + mass[i, j]; // ищем сумму всех эл-ов
end;
writeln;
end;
srarif := srarif / k; // считаем среднее арифм
writeln;
writeln('среднее арифм всех эл-ов массива = ', srarif:4:2);
readln;
end.

Скачать решение.

Определить сумму эл-ов массива кратных трём.

program A5;
uses
crt;
const
n = 50;
var
t : array[1..n] of integer;
j : integer;
summ : integer;
begin
clrscr;
randomize;
//заполняем массив t
summ := 0;
for j := 1 to n do
begin
t[j] := random(20);
if (t[j] mod 3) = 0 then
begin
textcolor(14);
write(t[j], ' ');
textcolor(7);
summ := summ + t[j];
end
else
write(t[j], ' ');

if (j mod 10) = 0 then writeln;
end;

writeln;
writeln('Сумма чисел массива кратных 3 = ', summ);
readln;
end.

Скачать решение.

Вывести кол-во элементов кратных 2 в каждой строке, найти минимальное.

program A6;
uses
crt;
const
n = 5;
n1 = 5;
var
t : array[1..n, 1..n1] of integer;
j, i : integer;
min : integer;
kol : integer;
k : integer; // конец диапазона
begin
clrscr;
randomize;
writeln('Введите конец диапазона генерации чисел.');
readln(k);
writeln;
min := k;
//заполняем массив t
kol := 0;
for j := 1 to n do
begin
for i := 1 to n1 do
begin
t[j, i] := random(k);
if (t[j, i] mod 2) = 0 then
begin
if t[j, i] <> 0 then
begin
textcolor(14);
write(t[j, i], ' ');
textcolor(7);
kol := kol + 1;
if min > t[j, i] then min := t[j, i];
end
else write(t[j, i], ' ');
end
else
write(t[j, i], ' ');

end;
textcolor(10);
write(' ', kol);
textcolor(7);
kol := 0;
writeln;
end;

writeln;
writeln('Минимальное число массива кратное 2 = ', min);
readln;
end.

Скачать решение.