Дан массив из n элементов Определить сколько в нем двузначных элементов кратных 5.
5-9 класс
|
На Паскале:
k:=0;
for i:=1 to n do
if (array[i] < 100) and (array[i]>9) and (array[i] mod 5 = 0) then k:= k+1;
program gt;
var n,a,p,k,q,i:integer;
begin
read(n);
q:=0;
for i:=1 to n do
begin
read(A);
p:=a;
if(a mod 5=0)then begin
k:=0;
while a>0 do
begin
a:=a div 10;
k:=k+1;
end;
if(k=2)then q:=q+1;
end;
end;
writeln(q);
end.
Другие вопросы из категории
количество информации содержит сообщение, что из коробки достали синий
карандаш?
храниться значения веса котёнка в течение одного месяца (например, мая)?
Читайте также
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
подсчитать кол-во пятерок , четверок, тоек полученных за контрольную работу, если число учеников равно 8
3)Дан одномерный числовой массив,изменить знак элементов массива К[1;12] на противоположный
2.Даны 2 массива одинакового размера. Сформировать 3-й массив, каждый элемент которого равен минимальному из элементов с одинаковыми номерами.
3.Заполнить массив из 11 элементов числами 1, 2,3,..,11.
Заранее спасибо.