ПОМОГИТЕЕЕЕЕ
1 Разработать программу, которая вводит массив из 10 целых чисел и выводит номера отрицательных элементов и сами эти элементы.
2. Разработать программу, которая вводит массив из 20 целых чисел из промежутка [-100, 100] и выводит на экран элементы с четными номерами.
1 Разработать программу, которая вводит массив из 10 целых чисел и выводит номера отрицательных элементов и сами эти элементы.
2. Разработать программу, которая вводит массив из 20 целых чисел из промежутка [-100, 100] и выводит на экран элементы с четными номерами.
Answers & Comments
Ответ:
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.
Объяснение: