Помогите решить задачу(в Паскале)
5-9 класс
|
Дан массив из 20 элементов. найти количество четных и нечетных чисел в массиве
var a:array[1..20] of integer;
i,k1,k2:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if odd(a[i]) then k2+=1;
if not odd(a[i]) then k1+=1;
end;
writeln(k1,' ',k2);
end.
Другие вопросы из категории
Дана строка s, определить сколько раз в ней встречается слово k.
противоположных чисел.
2)Контейнер для файлов.
1....2...3...4..5..6...7...=1
1...2...3..4..5..6..7..8..=1
2. Из слогов -бор-,кос,гон,ход ,рог,бег,мол,вар,жар, подберите такой что он был последним слогом для первого слова и первым -для второго(запишите слоги в скабках. 1.по( )ан 2.по ( )гон 3.по( )ожа 4.по( )ок 5.по( )ода 6.по ( )ец 7по ( ) ун 8по ( )а 9 по( )г 10по( )от
помогите пожалуйста:)
Читайте также
что угодно, помогу)Вот задача - Под конец учебного года ученики 11 класса решали понять у кого же из них будет самый высокий средний балл ? Известно , что - в классе учится 14 учеников, - Сумма всех средних баллов аттестата = 100.Известно также , что первый ученик имел средний балл, который составляет 1/ 12 суммы всех средних баллов. Второй ученик - на 0,15 % больше, чем первый ученик , но на 1,75 % меньше , чем третий ученик . Средние баллы аттестатов двух сестер были равными среднему арефметичному оценок вышеупомянутых учеников , разделенном на 1.5 . Четвертый ученика на конец года имел такой же балл , как и первый ученик , но на 5% меньше , а остальные ученики - имели равные баллы .Какой средний балл на конец года получил каждЫй?
1) Даны два числа. Составить алгоритм и перевести его на язык программирования, который меньшее из них возводит в квадрат, а большее оставляет без изменения,
ПОМОГИТЕЕ
1)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти произведение всех элементов массива.