1.Найти сумму отрицательных элементов массива 2.Дан массив целых чисел.Вывести номера тех элементов,которые навело делятся на 5 ОЧЕНЬ СРОЧНО!!!!!!

Вопрос школьника по предмету Информатика

1.Найти сумму отрицательных элементов массива
2.Дан массив целых чисел.Вывести номера тех элементов,которые навело делятся на 5
ОЧЕНЬ СРОЧНО!!!!!!

Ответ учителя по предмету Информатика

1)

Program n1;

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

i,sum: integer;

begin

randomize;

sum:=0;

writeln(‘исходный массив:’);

for i:=1 to 10 do

begin

a[i]:=random(20)-10;

write(a[i],’ ‘);

if a[i]<0 then sum:=sum+a[i];

end;

writeln;

writeln(‘сумма: ‘,sum);

end.

2)

Program n2;

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

i,k: integer;

begin

randomize;

k:=0;

writeln(‘исходный массив:’);

for i:=1 to 10 do

begin

a[i]:=random(20)-10;

write(a[i],’ ‘);

end;

writeln;

write(‘номера дел на 5: ‘);

for i:=1 to 10 do if a[i] mod 5=0 then write(i,’ ‘);

end.