Дан одномерный целочисленный массив A[15]. Элементы массива вводятся с
клавиатуры. Написать программу, которая будет находить сумму положительных
элементов массива, стоящих на нечетных местах.
клавиатуры. Написать программу, которая будет находить сумму положительных
элементов массива, стоящих на нечетных местах.
More Questions From This User See All
Answers & Comments
Ответ:
var A: array [1..15] of integer;
var i,s: integer;
begin
s:=0;
for i:=1 to 15 do
begin
read(A[i]);
if (A[i]>0) and (i mod 2 <>0) then s:=s+A[i];
end;
writeln('Сумма положительных',
' элементов массива, стоящих на нечетных местах: ',s);
end.