Заполнить случайными числами массив из n элементов, - вопрос №95185 от xXDenchykXx1 06.02.2023 08:39

Question

Информатика: Заполнить случайными числами массив из n элементов, найти сумму четных элементов. [-10; 100] [65; 100] [78; 256] [-23; 45] пример: 4 15 3 10 14 сумма четных элементов 28

xXDenchykXx1 · Answer

var a:array [1..10] of integer;

s,i,c,b:integer;

Begin

read(c,b,n);

randomize;

for i := 1 to n do

a[i]:= random(b) -c+1;

for i:= 1 to n do

if i mod 2 = 0 then s:=s+1;

writeln(s);

End.