Написать программу выведения резюме в виде: иван иванов иванов учебное заведение itstep заява я иван - id129475520221111 от korola 11.11.2022 05:14

Question

Информатика: Написать программу выведения резюме в виде: иван иванов иванов учебное заведение itstep заява я иван иванов иванов в возрасте 13 лет опоздал на 15 минут по причине боли в животе кому: петр петров петровский все что в кавычках это переменные

korola · Accepted Answer

Программа, которая использует два массива

var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do   begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do   begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.

ИЛИ Программа не использующая два массива, а просто переворачивающая первый

var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do   begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do  write(c[i], ' ');
end.

Обе программы работают!

MOGZ ответил