1. Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.

2. Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.

Question

Информатика

Зинуся

14 февраля, 13:56

1. Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.

2. Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.

+4

Ответы (1)

Знаешь ответ?

Кандидий · Answer 1

1)

Const N = 25;

Var m:array [1 ... N] of integer; i, S, k:integer;

begin

randomize;

for i:=1 to N do

m[i]: = random (50);

S:=0; k:=0;

for i:=1 to N do

if m[i] mod 2 = 0 then begin

S:=S+m[i]; inc (k); end;

writeln ('Summa = ', S,' kol-vo = ', k);

readln;

end.