Const n = 10;
var i,k,c: integer;
a:array[1..n] of integer;
begin
//Заполняем массив и выводим на экран
for i:=1 to n do begin
a[i]:=random(150)-50;
write(a[i]:5);
end;
writeln;
//Вывод элементов кратных пяти
k:=0;
for i:=1 to n do
if a[i] mod 5 = 0 then begin
write(a[i]:5);
k:=k+1;
end;
writeln;
writeln('Всего кратных пяти - ',k);
end.
У Англии есть традиция пить чай.
смотри эта задача похожа на комбинаторную)
1ый вопрос:
на первом месте есть 3 варианта буквы, на втором тоже 3, на третьем 3
=> всего слов 3 * 3 * 3 = 27
2ой:
1 - ая буква - м, => это как минимум 10-ое слово (т.к. в предыдущих 3 * 3 словах первая - и)
при этом 10 слово - мии => 11 слово - МИМ; 12 cлово - МИР;
3ий:
1-ая буква -Р это как минимум 19 слово (предыдущие 2 * 3 * начинаются на и или м)
19 слово - РИИ => 21 - PИМ
И каждая прикладная программа может создавать свои собственные файлы для своих нужд