Const
N = 25;
Var
A:array[1..N] of integer;
i,k:integer;
Begin
k:=0;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(401)-200;
Write(A[i],' ');
if (A[i] = 0)and(i mod 3 <> 0) then k:=k+1;
End;
WriteLn;
WriteLn('k = ',k);
End.
Лови верблюда)) Та часть, которая ручкой закрыта - таблица тетрад. Надеюсь, вы её проходили, с ней всё намного проще.
Var
i, b: integer;
m: array [1..10] of integer;
Begin.
For i:= 1 to 10 do
Readln (m[i],b);
S:= 0
If (m[i] div 10 = b) or ( m[i] mod 10 = b) then
S:=s+1
ну и концовку
Write (S);
End.
Вход Решение
k 10 10 11
s 10 10+10 = 20 20+11=31
Напечатано будет 31.
Только почему цикл от 10 до 11 (проверь строчку <span>for k=10 to 11 do)</span>