Дан массив A(m), m≤16 . Найти сумму S элементов, удовлетворяющих условию Ai больше 12 , и их количество K . Вывести на печать исходный массив и величины S и K
Дан массив A(m), m≤16 . Найти сумму S элементов,
удовлетворяющих условию Ai >12 , и их количество K . Вывести на
печать исходный массив и величины S и K
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы