Составить программку , которая сформировывает массив из 10 целых чисел и

Составить программку , которая сформировывает массив из 10 целых чисел и подсчитывает количество элементов массива, которые кратны 5.

Задать свой вопрос
2 ответа
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.
Дудовцева София
В условии сказано сформировать массив.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт