Question

ПОМОГИТЕЕЕЕЕ
1 Разработать программу, которая вводит массив из 10 целых чисел и выводит номера отрицательных элементов и сами эти элементы.
2. Разработать программу, которая вводит массив из 20 целых чисел из промежутка [-100, 100] и выводит на экран элементы с четными номерами.

Answer 1

Ответ:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

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

i,n,s,f,c:integer;

begin

write('Введите размер массива: ');

readln(n);

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

for i:=1 to n do begin

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

write(a[i],' ');

end;

writeln;

for i:=1 to n do begin

if odd(i) then f:=f+a[i];

if not odd(i) then s:=s+a[i];

c:=c+a[i];

end;

write('Сумма эл-тов с нечетными индексами= ',f);

writeln;

write('Сумма эл-тов с четными индексами= ',s);

writeln;

write('Сумма всех элементов= ',c)

end.

Объяснение: