Const
n=10;m=8;
var
a:array[1..n,1..m]of integer;
b:array[1..m]of integer;
i,j,min:integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
end;
writeln;
for j:=1 to m do
begin
min:=a[i,1];
for i:=1 to n do
if a[i,j]<min then
min:=a[i,j];
b[j]:=min;
end;
for i:=1 to m do
write(b[i]:4);
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.
Вот таблица сделанная на Exel.
Просто ничего
нельзя с этим ничего поделать
Хотя переустонови ее (программу)