А B не А А и В А и В или не А
0 0 1 0 1
0 1 1 0 1
1 0 0 0 0
1 1 0 1 1
1. Подсчет количества чисел из диапазона [1, 100], кратных 7.
2. В цикле ОШИБКА, причет очень грубая. Скорее всего, автор задачи хотел найти сумму чисел из диапазона от 1 до 10, которые кратны 3 и не кратны 9. Но в данном случае ничего вычисляться не будет из-за ошибки (будет зацикливание).
3. Вычисление среднего арифметического четных чисел из диапазоне от 10 до 99. Тоже написано очень коряво.
var
a:array[1..100, 1..100] of integer;
n, m, count, i, j, max:integer;
begin
randomize;
write('m = ');
readln(m);
write('n = ');
readln(n);
writeln('Исходный массив :');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(11);
write(a[i, j], ' ');
end;
writeln;
end;
max := a[1, 1];
for i := 1 to m do
for j := 1 to n do
if a[i, j] > max then
max := a[i, j];
writeln('Max = ', max);
for i := 1 to m do
begin
count := 0;
for j := 1 to n do
if a[i, j] = max then
inc(count);
writeln('В строке', i ,' находится', count, ' максимальных элементов');
end;
readln;
end.