Предмет: Информатика,
автор: elviradashkevich
Составьте программу, которая заполняет массив а[1...8] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран количество элементов с четными значениями и сумму элементов массива с нечетными значения.
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
Написано на Pascal
Похожие вопросы
Предмет: Литература,
автор: Аноним
Предмет: Алгебра,
автор: semionicheva04
Предмет: Математика,
автор: sarsenovzaslan24
Предмет: Биология,
автор: ОоВаНеЧкАоО
Предмет: Алгебра,
автор: kbzxrf