Паскаль! Автоматически задается массив, сост. из 20 элементов. Все четные элементы заменить нулями. Нули поставить в конец массива. Помогите!!! Я уже заменила все четные, поняла сам процесс, как их поставить в конец, но не сооб...
Паскаль! Автоматически задается массив, сост. из 20 элементов. Все четные элементы заменить нулями. Нули поставить в конец массива. Помогите!!! Я уже заменила все четные, поняла сам процесс, как их поставить в конец, но не соображу, как правильнее записать. !!!
Гость
Ответ(ы) на вопрос:
Гостьprogram P1;
uses
crt;
var
mas : 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.
Не нашли ответ?
Похожие вопросы