дан массив 300 целых чисел в промежутке (-205,309) подсчитать количество отрицательных чисел ,делящихся на 4
Помогите , очень срочно
antoxapantelee:
на каком языке?
Ответы
Ответ дал:
1
Ответ:
program n1;
var q,w:integer;
a: array[1..300] of integer;
begin
for q:=1 to 300 do begin
a[q]:=random(514)-205;
if a[q]<0 then begin
if a[q]mod 4=0 then
w:=w+1;
end;
end;
writeln(w);
end.
Объяснение:
Ответ дал:
0
===== PascalABC.NET =====
begin
var a := ArrRandom(300, -205, 309);
a.Println; // удалите строку, если вывод не нужен
Println('Кол-во', a.Count(p -> (p < 0) and (p mod 4 = 0)))
end.
Приложения:
![](https://st.uroker.com/files/75e/75e556ab7f4cd50db5b8083896d66e8f.jpg)
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
2 года назад