Ұсынылған сценарийді зерттеп, Мысықтың әрекеттерінің дұрыс санын көрсет. Мысық Күшікпен кездескенде - id1391335320210903 от Zaynab2897 03.09.2021 10:42

Question

Информатика: Ұсынылған сценарийді зерттеп, Мысықтың әрекеттерінің дұрыс санын көрсет. Мысық Күшікпен кездескенде «Сәлем!» деді. Күшік «Қайырлы күн!» деп жауап берді. Мысық Күшікпен қоштасарда «Сау бол!» деді. Күшік жауап бермеді. Әр спрайт 50 қадамнан кейін костюмдерін ауыстырады. Спрайт Әрекеттер саны Мысық Күшік 3 Жауабы:

Zaynab2897 · 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.

MOGZ ответил