const
n = 10;
var
i, k, s: integer;
a10: array[1..n] of integer;
begin
for i := 1 to n do
read(a10[i]);
s := 0;
k := 0;
for i := 1 to n do
if a10[i] < 5 then
begin
s := s + a10[i];
k := k + 1;
end;
write(s, ' ', k);
end.
const n=20;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
begin
a[i]:=random(31)-10;
write(a[i]:4);
end;
end.
Пример:
7 8 12 16 8 16 6 16 3 9 10 1 3 -1 17 -9 19 -2 1 4
Ответ:
1100
Объяснение:
Фото. Используй круги Эйлера при решении подобных задач.
<span>Нажатие на кнопку ПУСК приводит к открытию - ГЛАВНОГО МЕНЮ </span>