Жолындатиркеси гиперсилтеме ретинде не береди
А)ИТ суретин
В)иттер туралы малиметтер берегите dog.gip файлы на ауыстырады
С)В
Д)А,В
Е)Дурыс жауап жок

Question

Информатика: Жолындатиркеси гиперсилтеме ретинде не береди А)ИТ суретин В)иттер туралы малиметтер берегите dog.gip файлы на ауыстырады С)В Д)А,В Е)Дурыс жауап жок

асема2005 · Accepted Answer

Const
MAX_SIZE = 10;

var
a: array[1..MAX_SIZE] of integer;
i, size: integer;

procedure delete_odd_elements();
var i, j: integer;
begin
i := 1;
repeat
    if odd(a[i]) then
    begin
      dec(size);
      for j := i to size do
        a[j] := a[j + 1]
    end
    else inc(i);
until i > size;
end;

begin
writeln('Исходный массив: ');
size := MAX_SIZE;
for i := 1 to size do
begin
    a[i] := random(100);
    write(a[i] : 3);
end;
delete_odd_elements;
writeln;
writeln('Полученный массив: ');
for i := 1 to size do
    write(a[i] : 3);
end.

Жолындатиркеси гиперсилтеме ретинде не береди А)ИТ суретин В)иттер туралы малиметтер берегите dog.gip файлы на ауыстырады С)В Д)А,В Е)Дурыс жауап жок

MOGZ ответил

Жолындатиркеси гиперсилтеме ретинде не береди
А)ИТ суретин
В)иттер туралы малиметтер берегите dog.gip файлы на ауыстырады
С)В
Д)А,В
Е)Дурыс жауап жок