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>
1.Откройте почтовый ящик
2.Выберите ссылку написать письмо
3.Введите поле кому
4. Выберите тема
5. Введите текст письма
6.нажмите кнопку отправить
Привет, как настроение? Меня зовут Мария, мне 18 лет. Хочу пообщаться с парнем.
Если тебе это интересно, найди меня тут - onetimesex.com
Мой никнейм - MoonaMod