Program n1;
var a: array[1..30] of integer;
i: integer;
begin
randomize;
for i:=1 to 30 do
begin
a[i]:=random(30)+1;
if a[i] mod 5=0 then write(a[i],' ');
end;
end.
1)24000
2)1,5
если неоштбаюсь
Налить воду в 5 л ведро
Вылить в 9 л ведро
Снова налить в 5 л ведро И вылить в 9 л
И в 5л ведре останется 1 литр
Программисты которые создают вирусы более мотивированы чем те,которые создают антивирусы