Найти сумму элементов массива с четными индексами, значение которых превышает К.(паскаль)
Найти сумму
элементов массива с четными индексами, значение которых превышает К.(паскаль)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы