Задание:
Составьте программу, которая заполняет массив а[1… 8] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран количество элементов с четнымизначениями и сумму элементов массива с нечетными значения.
Решение:
Program Zadacha; Var a: Array [1… 8] of Integer; i, b, c: Integer; BeginRandomize; For i: =1 To 8 Doa[i]: =Random (11); b: =0; c: =0; For i: =1 To 8 DoBeginIf a[i] Mod 2=1 Thenb: =b+1Elsec: =c+a[i]; End; WriteLn ('Количество нечетных элементов массива равно ', b); WriteLn ('Сумма четных элементов массива равна ', c); ReadLn; End.
Знаете другой ответ?