Составьте программу, которая заполняет массив а[1...8] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран количество элементов с четными значениями и сумму элементов массива с нечетными значения.
Составьте программу, которая заполняет массив а[1...8] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран количество элементов с четными значениями и сумму элементов массива с нечетными значения.
Гость
Ответ(ы) на вопрос:
ГостьProgram Zadacha;
Var a: Array [1..8] of Integer;
i, b, c: Integer;
Begin
Randomize;
For i := 1 To 8 Do
a[i] := Random(11);
b := 0;
c := 0;
For i := 1 To 8 Do
Begin
If a[i] Mod 2 = 1 Then
b := b + 1
Elsec := c + a[i];
End;
WriteLn('Количество нечетных элементов массива равно ', b);
WriteLn('Сумма четных элементов массива равна ', c);
ReadLn;
End.
Не нашли ответ?
Похожие вопросы