Вопрос по информатике:
Найти сумму
элементов массива с четными индексами, значение которых превышает К.(паскаль)
- 10.03.2018 23:37
- Информатика
- remove_red_eye 3804
- thumb_up 37
Ответы и объяснения 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.
- 11.03.2018 08:43
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.