Помогите, пожалуйста! Паскаль
Заполнить массив случайными числами в интервале [-10,10] и отобрать в другой массив все чётные отрицательные числа.
Пример:
Массив А:
-5 6 7 -4 -6 8 -8
Массив B:
-4 -6 -8
Ответы
Ответ дал:
0
// PascalABC.NET 3.3
begin
var a:=ArrRandom(10,-10,10);
writeln('Массив A:'); a.Println;
var b:=a.Where(x->(x<0)and(x mod 2=0)).ToArray;
writeln('Массив B:'); b.Println;
end.
Пример:
Массив A:
7 -4 -9 2 6 8 5 -10 8 8
Массив B:
-4 -10
begin
var a:=ArrRandom(10,-10,10);
writeln('Массив A:'); a.Println;
var b:=a.Where(x->(x<0)and(x mod 2=0)).ToArray;
writeln('Массив B:'); b.Println;
end.
Пример:
Массив A:
7 -4 -9 2 6 8 5 -10 8 8
Массив B:
-4 -10
Ответ дал:
0
Спасибо! Но мне, к сожалению, нужно решение другое. Такое, как это: uses crt;
const
n = 10;
var
a,b : array[1..n] of integer;
i,j : integer;
begin
randomize;
i := 0;
j := 0;
for i := 1 to n do
begin
a[i] := random(21)-10;
write(a[i],' ');
end;
writeln;
for i := 1 to n do
if (a[i] < 0) and (a[i] mod 2 = 0) then
begin
j := j+1;
b[j] := a[i];
end;
for i := 1 to j do
writeln(b[i]);
readln;
end.
const
n = 10;
var
a,b : array[1..n] of integer;
i,j : integer;
begin
randomize;
i := 0;
j := 0;
for i := 1 to n do
begin
a[i] := random(21)-10;
write(a[i],' ');
end;
writeln;
for i := 1 to n do
if (a[i] < 0) and (a[i] mod 2 = 0) then
begin
j := j+1;
b[j] := a[i];
end;
for i := 1 to j do
writeln(b[i]);
readln;
end.
Ответ дал:
0
Только чтобы работало :D
Ответ дал:
0
В приведённой программе всё верно. Можно убрать i := 0; и вместо writeln(b[i]); написать write(b[i],' ');
Ответ дал:
0
Спасибо большое!)
Ответ дал:
0
Пожалуйста.
Вас заинтересует
2 года назад
8 лет назад
8 лет назад
8 лет назад