Дано целое число n и массив случайных чисел X[1..n]. Все элементы массива , меньше двух,заменить нулями. Кроме того, получить сумму и количество элементов , принадлежащих отрезку[3,7].
Дано целое число 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
Не нашли ответ?
Похожие вопросы