Задание:
Найти суммуэлементов массива с четными индексами, значение которых превышает К. (паскаль)
Решение:
Uses crt; const n=20; var a: array[1… n] of integer; s,k,i: integer; beginfor i: =1 to n doread (a[i]); readln (k); s: =0; for i: =1 to n doif (i mod 2=0) and (a[i]>k) then s: =s+a[i]; writeln (s); end.
Знаете другой ответ?