Паскаль! Автоматически задается массив, сост. из 20 элементов. ...
Паскаль! Автоматически задается массив, сост. из 20 элементов. Все четные элементы заменить нулями. Нули поставить в конец массива. Помогите!!! Я уже заменила все четные, поняла сам процесс, как их поставить в конец, но не соображу, как правильнее записать. !!!
Есть ответ
17.12.2022
112
Ответ
program P1;usescrt;varmas : array[1..20] of integer;i,j,k : integer;tmp : string;begin
clrscr;
writeln('Start array: ');
for i := 1 to 20 do begin
mas[i] := random(100);
write(mas[i],' ');
end;
for i := 1 to 20 do begin
if mas[i] mod 2 = 0 then mas[i] := 0;
end;
for i := 1 to 20 do begin
if mas[i] = 0 then begin
for j := 20 downto i do if mas[j] 0 then begin
k := mas[j]; mas[j] := mas[i]; mas[i] := k;
end;
end;
end;
writeln(''); writeln('Result array: ');
for i := 1 to 20 do write(mas[i],' ');
readln(tmp); read(tmp);
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
