Найти сумму

элементов массива с четными индексами, значение которых превышает К. (паскаль)

Question

Информатика

Костюха

8 октября, 04:56

Найти сумму

элементов массива с четными индексами, значение которых превышает К. (паскаль)

+4

Ответы (1)

Знаете ответ на вопрос?

Люциан · Answer 1

Uses crt;

const n=20;

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

s, k, i:integer;

begin

for i:=1 to n do

read (a[i]) ;

readln (k) ;

s:=0;

for i:=1 to n do

if (i mod 2=0) and (a[i]>k) then s:=s+a[i];

writeln (s) ;

end.

Найти суммуэлементов массива с четными индексами, значение которых превышает К. (паскаль)

Найти сумму

элементов массива с четными индексами, значение которых превышает К. (паскаль)