ВикаВишенка
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.
Answers & Comments
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.
Написано на Pascal