Дан массив из N элементов определить количество элементов имеющие четные порядковые номера и являющихся нечетными числами
5-9 класс
|
const w=10000;
var
i,n,sum:integer;
a:array[1..w] of integer;
begin
writeln('Введите кол-во элементов в массиве');
readln(n);
for i:=1 to n do
begin
a[i]:=random(100);
if (a[i] mod 2<>0) and (i mod 2 = 0) then
inc (sum);
end;
writeln(sum);
end.
как заполнять массив?
Рандом или с клавиатуры?
Другие вопросы из категории
Пятнашки(avi),(txt),(wav),(bmp),(com)
Определите основание этих классификаций.
Объект - Февраль,май,август,сентябрь
Объект - Май,август,октябрь,декабрь
Объект - 1,2,11,29
Читайте также
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
различны). Найти минимальный элемент численного массива и его порядковый номер.
подсчитать кол-во пятерок , четверок, тоек полученных за контрольную работу, если число учеников равно 8
3)Дан одномерный числовой массив,изменить знак элементов массива К[1;12] на противоположный