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

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

Question

Информатика

Донат

2 октября, 18:10

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

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

+1

Ответы (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.