Массив a[1..15] заполняет случайными четными числами в диапазоне от -10 до 10 за тем переобразовывать массив заменяя каждый отрицательный массив на 0 . И подсчитать все эти отрицательные элементы и заменить их на 0. Помогите пожалуйста!! Срочно
Ответы
Ответ дал:
0
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := SeqRandom(10000, -10, 10).Where(t -> t.IsEven)
.Take(15).ToArray;
a.Println;
a.Where(t -> t < 0).Count.Println;
a.Transform(t -> t < 0 ? 0 : t);
a.Println
end.
Пример
-6 10 2 4 -2 -4 2 2 10 -10 -6 -8 -8 2 -6
8
0 10 2 4 0 0 2 2 10 0 0 0 0 2 0
Ответ дал:
0
const n=15;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(21)-10;
if a[i] mod 2 <> 0 then a[i]:=a[i]+1
end;
writeln('Исходный массив: ',a);
for i:=1 to n do
if a[i] < 0 then
begin
a[i]:=0;
k:=k+1
end;
writeln('Преобразованный массив: ',a);
writeln('Отрицательных элементов было: ',k)
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад