Дан массив Аn определить количество нечетных элементов массива, стоящих на четных местах вывести на экран исходный массив и найденное количество
10-11 класс
|
помогите
const n = 15;
var
a: array[1..n] of integer;
i, count: integer;
begin
for i := 1 to n do begin
a[i] := random(100);
write(a[i], ' ');
if(i mod 2 = 0) and (a[i] mod 2 <> 0) then inc(count);
end;
writeln;
writeln('[', count, ']');
end.
Другие вопросы из категории
нереально здесь, хотя-бы задания пжл
которых меньше 20 и кратны заданному числу С. Программу можно, ПОЖАЛУЙСТА? :)
Читайте также
экран исходный массив и найденное кол-во.
генератора случайных чисел. если можно с блок-схемой
1) Найти сумму всех элементов массива, заполненных случайными числами?
2) Найти сумму четных элементов массива?
3) Найти сумму элементов массива, стоящих на четных местах?
стоящих на четных местах. Вывести на экран эти элементы и их произведение.
максимального и минимального
в) максимальный элемент из стоящих на четных местах
г) сумму положительных и среднее арифметическое отрицательных
д) второй максимум
е) длину наибольшего фрагмента, состоящего из одинаковых элементов.
ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО ЗА РЕШЕНИЕ ХОТЯ БЫ ОДНОЙ ИЗ ЗАДАЧЕК...))))))