Я думаю это запах ....))))))))
Var j,i:longint;
begin
for i:=2 to 3628800 begin
for j:=2 to 3628800 do writeln(i*j:10);writeln();
end;
readln;
end<span>.</span>
Логика<span> – </span>это<span> и процесс мышления, которому свойственна закономерность, последовательность, доказательность, умение видеть и понимать причинно- следственную связь между предметами и явлениями.</span>
В ячейку B1 нужно ввести формулу =СУММ($A$1:A1) и эту формулу скопировать (распространить) на весь столбец B
Var B : array [1..10] of integer; i,s,k : integer;begin k := 10; s := 0; randomize; for i := 1 to 10 do begin B[i] := random(40); writeln(B[i]); if B[i] > k then s := 1 + s; end;write('Кол-во элементов массива, больших k : ', s);end.