написать программу для 2 и 3 Задания все есть на фото
Приложения:
![](https://st.uroker.com/files/b87/b878d3479baf75bfc49be89c3f342a72.jpg)
germansvalih:
спасибо
Ответы
Ответ дал:
0
var
sum, i, n: integer;
arr: array[integer] of integers;
begin
readln(n);
sum := 0;
for i := 0 to n-1 do
begin
read(arr[i]);
if (arr[i] < 0) and (i mod 2 = 0) then sum := sum + arr[i]
end;
writeln(sum);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад