дан массив из 10 чисел найти количество чисел делящихся на 2
10-11 класс
|
4,6,8,10,12,14,16,18,20,22
var
a: array [1..10] of integer;
i, s: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(10);
write(a[i]:2);
end;
writeln();
for i := 1 to 10 do
if (a[i] mod 2 = 0) then
inc(s);
writeln(s);
end.
Другие вопросы из категории
Написать на Паскале)
чтобы был не какой нибудь сложный,а простой типо обезьяны)благодарю)
Читайте также
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
"Дан массив из 5 чисел, найти количество элементов которые равны минимуму."
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива