program zadacha;
const n = 10;
type mas=array[1..n] of integer;
var s,i,k,d: integer;
m: mas;
begin
s: =0;
k: =0;
readln(d);
for i: =1 to n do
read(m[i]);
for i: =1 to n do
if m[i]< d then begin
s: =s+m[i];
k: =k+1;
end;
writeln('сумма чисел < d = ',s,' колиество чисел < d = ',k);
end. (это решение для случая если вы вводите сразу весь массив чисел)
program zadacha;
const n = 10;
var s,i,k,d,m: integer;
begin
s: =0;
k: =0;
readln(d);
for i: =1 to n do begin
readln(m);
if (m < d) then begin
s: =s+m14;
k: =k+1;
end;
end;
writeln('сумма чисел < d = ',s,' колиество чисел < d = ',k);
end. (а это решение для того случая когда вы вводите элементы по одному )
Поделитесь своими знаниями, ответьте на вопрос:
Вячейках а1 в1 ис1 электронной таблицы хранятся числовые значения. в ячейку d1 занесите логическое выражение, принимающее значение истина только тогда, когда среди этих трех чисел есть хотя бы одна пара значений. например: 1; 3; 1