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
2. Освободить дырку справа
3. Найти правую границу массива, поставить там метку и вернуться к левой границе массива из оставшихся точек.
4. Вернуться к п. 1.
Var h1,h2,m1,m2,s1,s2,s:integer;
begin
write('Введите время первого события: ');
readln(h1,m1,s1);
write('Введите время второго события: ');
readln(h2,m2,s2);
s:=h2*3600+m2*60+s2-h1*3600-m1*60-s1;
writeln('Число секунд между ними: ',s);
<span>end.</span>
Известно несколько способов решения данной задачи. Один из вариантов: МУХА-МУРА-ТУРА-ТАРА-ПАРА-ПАРК-ПАУК-ПАУТ-ПЛУТ-ПЛОТ-СЛОТ-СЛОН
<h2>Ответ:</h2>
Если сложить числа от 1 до 3, то их сумма будет равна 6
<h2>Объяснение:</h2>
1+2+3 = 6