Если сумма цифр в числе кратна 3-м, то число делится на 3 без остатка. У меня получилось 9776544.
Проверяем 9+7+7+6+5+4+4=42, 42/3=14.
В файле код программы.
Блин, пишите понятно, а то разность, произведение... я в украинской школе учился и хз что это.
Залить в 7 3 +
-ртг89лаблдл
Var
a:array [1..10] of real;
ran:real;
i:integer;
begin
for i:= 1 to 10 do
begin
ran:=100-random(200)+1;
a[i]:= ran;
if a[i]< 0
then begin
write(a[i],' ');
writeln(i);
end;
end;
end.<span>
</span>