Нужно заменить в исходном слове одну букву на другую так,чтобы получившееся слово было существительным - id141945620220913 от натярппо 13.09.2022 03:45

Question

Информатика: Нужно заменить в исходном слове одну букву на другую так,чтобы получившееся слово было существительным в именительном падеже.пример: слон-слог.менять местами буквы нельзя! запишите цепочки превращений: бег рак миг век бант коса шар куб муха слон

натярппо · Accepted Answer

program laba;

{$APPTYPE CONSOLE}

uses

SysUtils,

windows;

var

a:array[1..15] of integer;

i,imax,x:integer;

begin

SetConsoleoutputCP(1251);

for i:=1 to 15 do

begin

writeln('Введите',i,'-й элемент');

readln(a[i]);

end;

imax:=1;

for i:=2 to 15 do

if a[i]>a[imax] then imax:=i;

x:=a[15];

writeln('максимальное число = ',a[imax],' его индекс= ',imax);

if imax=15 then write('Он последний, обмена нет');

else

begin

x:=a[imax];

a[imax]:=a[15];

a[15]:=x;

writeln('Обмен максимального и последнего:');

for i:=1 to 15 do

write(a[i]:6:3,' ');

end;

readln;

end.

Объяснение:

MOGZ ответил