Дан массив из 25 целых чисел. Элементы массива могут принимать целочисленные значения от -200 до 200. Определите Количество нулевых элементов, индексы которых не кратны 3.
Дан массив из 25 целых чисел. Элементы массива могут принимать целочисленные значения от -200 до 200. Определите Количество нулевых элементов, индексы которых не кратны 3.
Гость
Ответ(ы) на вопрос:
ГостьConst
N = 25;
Var
A:array[1..N] of integer;
i,k:integer;
Begin
k:=0;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(401)-200;
Write(A[i],' ');
if (A[i] = 0)and(i mod 3 <> 0) then k:=k+1;
End;
WriteLn;
WriteLn('k = ',k);
End.
Гость// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(25,-200,200); a.Println;
Writeln('n=',a.Where((x,i)->(x=0) and ((i+1) mod 3<>0)).Count)
end.
Пример
13 -80 95 -146 127 -123 15 -98 51 119 -120 77 0 -9 85 165 -86 13 -37 157 -19 192 -80 156 178
n=1
Не нашли ответ?
Похожие вопросы