Дан массив 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы