Форма, рик, кит, кіт, фарт, норма, корм, міф, роман, мати, фінт, фора, міра, мир, Рим, тік, романтика, Кіра, Рима, карта, рама, комар, марка, рак, кара, фара, рамка, рифма, тиран, Іран, Ірак, Каїр, морфін, факт, карат, таран, кіно, кома
Я немного поняла, но уточни пожалуйста какой точнее проект
Const n=10;
var
i: integer;
var a: array[1..n] of integer;
begin
for i:=1 to n do begin
a[i]:=random(1,50);
write (a[i]:3);
end;
writeln;
writeln ('Элементы, кратные 5:');
for i:=1 to n do begin
if a[i] mod 5 =0
then write (a[i]:3);
end;
end.
===================================
30 45 2 5 26 47 30 7 4 9
Элементы, кратные 5:
30 45 5 30
===================================