Даны 4 целых числа. найти сумму и количество чётных чисел то есть написать программу

116

491

Посмотреть ответы 2

Ответы на вопрос:

253n

Информатика

4,6(92 оценок)

Const handsfree = false; nmax = 4; random_min = -50; random_max = 50; var a: array[1..nmax] of integer; i, n, j: integer; sum, product, harmonic: real; k: integer; begin {ввод массива} n : = nmax; writeln('данные массива: '); for i : = 1 to n do begin if handsfree then begin a[i] : = random(random_max - random_min) + random_min; write(a[i], ' '); end else readln(a[i]); end; writeln(); {подсчет элементов} k : = 0; for i : = 1 to n do if a[i] mod 2 = 0 then k : = k + 1; writeln('quantity = ', k); {подсчет суммы и произведения и агригатов} sum : = 0; for i : = 1 to n do sum : = sum + a[i]; writeln('sum = ', sum); end.