Дана программа: Program Primer; Var A,result : real; Begin Writeln( Введите значения переменной A ); - id1305635720210119 от bogdantanya20171 19.01.2021 13:49

Question

Информатика: Дана программа: Program Primer; Var A,result : real; Begin Writeln( Введите значения переменной A ); Write( A= ); Readln(A); Result := sqr((8+A)*10); Writeln ( sqr((8+A)*10) , result:8:0); Readln; End. Запусти Паскаль, введи данную программу, получи результат, если A=5.

bogdantanya20171 · Accepted Answer

Const n = 10; type arr=array[1..n] of byte; procedure sort(var a:arr); var i, j, max, imax:integer; begin j := n; while j 1 do begin     max := a[1];     imax := 1;     for i := 2 to j do         if a[i] max then begin             max := a[i];             imax := i         end;     a[imax] := a[j];     a[j] := max;     j := j - 1  end; end; var a: arr; i: byte;   begin Randomize; writeln( Исходный массив: ); for i := 1 to n do    begin   a[i] := random(256);   write(a[i]:4)   end; writeln; sort(a);...

MOGZ ответил