Составьте программу, которая заполняет массив а[1…

Question

Составьте программу, которая заполняет массив а[1… 8] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран количество элементов с четнымизначениями и сумму элементов массива с нечетными значения.

Answer 1

38

alfavit

12 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: