Составить программу , которая формирует массив из 10 целых чисел и подсчитывает количество элементов массива, которые кратны 5.
5-9 класс
|
Program enot;
var a:array [1..10] of integer;
i,h:integer;
begin
h:=0;
for i:= 1 to 10 do
a[i]:=random(100);
for i:=1 to 10 do
if a[i] mod 5=0 then
h:=h+1;
writeln(h);
end.
var
i,k : longint;
begin
k:=0;
for i:=1 to 10 do
if (i mod 5)=0 then k:=k+1;
writeln(k);
end.
Другие вопросы из категории
Читайте также
чисел и выводит на экран этот же массив в прямом и обратном порядке. Протестировать алгоритм на произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.
2. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с чётными номерами. Протестировать алгоритм на произвольных массивах размерностью 5 и 8 элементов.
3. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с нечётными номерами в обратном порядке. Протестировать алгоритм для следующих исходных данных:
а) 1 3 5 6 8 9
б) -1 4 6 2 4 6 8 6 9
P.S. Убедительная просьба написать решение целиком и до наступления ночи. Я являюсь дилетантом в Паскале, а эти три задачи являются моим домашним заданием по информатике на завтра.
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
то поменять местами третий и пятый элементы, если третий элемент равен нулю, то увеличить оба эти элементы в 2 раза, иначе третий и пятый элементы сохраняют прежние значения.