Devaunka40
?>

Анализ Проанализируйте программу робота «Часовой». Обратите вниманна числовые параметры, используемые в блоках. Может ли робітвыполнить все функции военного часового? Какую функцию он 2сможет выполнить? Объясни почему.​

Информатика

Ответы

Merkuloff78

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.

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Анализ Проанализируйте программу робота «Часовой». Обратите вниманна числовые параметры, используемые в блоках. Может ли робітвыполнить все функции военного часового? Какую функцию он 2сможет выполнить? Объясни почему.​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

mira15963256
sashakrotova943
maksimovskiy7657
ars-trushakova
Coverplus30
dkedrin74038
marimelons795
Jannadon77
naratnikova
annaan-dr582
zatoichi69
lestnica
katarinacorvus825
oskon008
shpakohat