Дано целое число n и массив случайных чисел X[1..n].
Все элементы массива , меньше двух,заменить нулями.
Кроме того, получить сумму и количество элементов , принадлежащих отрезку[3,7].
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var a:=ArrRandom(ReadInteger(n=),0,9);
a.Println;
var k:=0;
var s:=0;
for var i:=0 to a.Length-1 do begin
if a[i]<2 then a[i]:=0;
if a[i] in [3..7] then begin
Inc(k); s+=a[i]
end
end;
a.Println;
Writeln(Сумма ,k, элементов на интервале равна ,s)
end.
Тестовое решение:
n= 15
5 7 6 7 8 9 0 7 9 7 6 1 0 0 8
5 7 6 7 8 9 0 7 9 7 6 0 0 0 8
Сумма 7 элементов на интервале равна 45
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
