Вопрос по информатике:
Дан массив A(m), m≤16 . Найти сумму S элементов,
удовлетворяющих условию Ai >12 , и их количество K . Вывести на
печать исходный массив и величины S и K
- 12.09.2018 09:46
- Информатика
- remove_red_eye 17127
- thumb_up 29
Ответы и объяснения 1
Const nx = 50;
Var A:array[1..nx]of integer; i,m,s,k:integer;
Begin
WriteLn('Введи количество элементов массива'); Read(m);
For i:= 1 to m do begin
A[i]:= random(50)-5;
if A[i]> 12 then begin
s:= s + A[i];k:= k + 1;
write(A[i]:3);end;end;
writeln;
write('s = ',s:3,'k = ', k);
end.
- 13.09.2018 06:15
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.