напишите программу которая в последовательности натуральных чисел определяет количество чётных отрицательных чисел. В ПАСКАЛЕ, заранее спасибо)
Ответы
Ответ дал:
0
var
i, n: integer;
s: byte;
arr: System.Collections.Generic.List<integer> := new System.Collections.Generic.List<integer>();
begin
write('Enter a number of values: ');
readln(n);
for i := 0 to (n - 1) do
begin
arr.Add(random(-50, 50));
write(String.Format('[{0}] => {1}; ', i, arr[i]));
if ((arr[i] < 0) and (arr[i] mod 2 = 0)) then
s += 1;
end;
writeln(System.Environment.NewLine, '> ', s);
end.
i, n: integer;
s: byte;
arr: System.Collections.Generic.List<integer> := new System.Collections.Generic.List<integer>();
begin
write('Enter a number of values: ');
readln(n);
for i := 0 to (n - 1) do
begin
arr.Add(random(-50, 50));
write(String.Format('[{0}] => {1}; ', i, arr[i]));
if ((arr[i] < 0) and (arr[i] mod 2 = 0)) then
s += 1;
end;
writeln(System.Environment.NewLine, '> ', s);
end.
Вас заинтересует
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад