Найти сумму

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

Question

Информатика

Гремислав

31 октября, 19:49

Найти сумму

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

+3

Ответы (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.

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

Найти сумму

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