Решить в паскале. Дан массив А(9). Сформулировать новый массив В, который получается из А путем записи после каждого отрицательного элемента числа 0. Массивы А и В распечатать.
Решить в паскале.
Дан массив А(9). Сформулировать новый массив В, который получается из А путем записи после каждого отрицательного элемента числа 0. Массивы А и В распечатать.
Гость
Ответ(ы) на вопрос:
Гостьprogram Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var a,b:array [1..9] of Integer; i:integer;
begin
Randomize;
for i:=1 to 9 do
a[i]:=Random(10)-5;
for i:=1 to 9 do
write(a[i]:3);
writeln;
for i:=1 to 9 do
b[i]:=a[i];
for i:=1 to 9 do
if b[i]<0 then
b[i+1]:=0;
for i:=1 to 9 do
write(b[i]:3);
Readln;
end.
Не нашли ответ?
Похожие вопросы