Вкажіть типи змінних, які відповідають такому запису var a , b: integer; c: real; * 1)змінні a і b цілого - id1335316320230301 от DashaFomicheva13005 01.03.2023 13:03

Question

Информатика: Вкажіть типи змінних, які відповідають такому запису var a , b: integer; c: real; * 1)змінні a і b цілого типу, змінна c дійсного типу 2)зміннi a, b, c цілого типу 3)змінні a, b, c дійсного типу 4)змінні a і b дійсного типу, змінна c цілого типу

DashaFomicheva13005 · Accepted Answer

Const
n = 10;
var
a : array [1..n] of integer;
r : boolean;
i,j : integer;
begin
//Формирование массива пропущено

r := true;
While r do
begin
if a[i] mod 2 =0 then
begin
for j := n-1 downto i + 2 do
a[j] := a[j-1];
a[i+1] := 0;
r := false;
end;
i := i +1;
end;
for i := 1 to n do
writeln (a[i]);
end.

Во избежании ошибок стоит учесть наличие такового элемента в массиве и размерность массива (чтобы его можно было корректно расширить на один элемент)

MOGZ ответил