Const
n=5;
var
a:array[1..n,1..n]of integer;
i,j,k:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
j:=n;
for i:=1 to n do
begin
if a[i,j]<5 then k:=k+1;
j:=j-1;
end;
writeln('Ответ: ',k);
<span>end. </span>
<span>посмотрите на фотографии и скажите, что они сделали вчера</span>
Таблица - см. рисунок.
Формулы:
=ЕСЛИ(И(C2<=13;D2>=160);"+";"-")
=СЧЁТЕСЛИ(E2:E6;"+")
Волк и ягнёнок" - чиновник и гастарбайтер; "Ворона и лисица" _бесплатный сыр бывает только в мышеловке; "Демьянова уха" - навязчивый сервис.