Question

Помогите задача 3 пожалуйста очень срочно!!!!

Answer 1

Ответ (для третьей задачи):

program Prog3;

var a: array of Integer;

summ, i, n: Integer;

begin

randomize;

write('Введите N: ');

read(n);

SetLength(a, n);

// заполнение

for i := 0 to n-1 do

 a[i]:=random(151)-100;

// вывод массива

write('Массив: ');

for i := 0 to n-1 do

 write(a[i],' ');

// вычисление суммы четных элементов

for i := 0 to n-1 do

 if ( (a[i] mod 2) = 0 ) then

  summ+=a[i];

writeln;

// вывод этой суммы

write('Сумма четных элементов: ');

write(summ);  

end.

// p.s. номера массива -- как я поняла, это значения элементов с этими номерами