Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; - id244077320211108 от Mallony 08.11.2021 01:30

Question

Информатика: Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin n : = 0; s : = 512; while s =0 do begin s : = s -20; n : = n + 1 end; write(n) end

Mallony · Accepted Answer

Программа может выглядеть так:

uses Crt;
const n=10;
type Mas=array [1..n] of integer;
var A: Mas;
    i, temp, MinInd, MaxInd, Max, Min: integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
   begin
   A[i]:=10+random(90);
   Write (A[i]:5);
   end;
WriteLn;
Max:=A[1]; MaxInd:=1;
Min:=A[1]; MinInd:=1;
for i:=2 to n do
begin
if A[i]<Min then
     begin
       Min:=A[i];
       MinInd:=i;
     end
     else
       if A[i]>Max then
       begin
       Max:=A[i];
       MaxInd:=i;
     end;
end;
temp:=A[MaxInd];
A[MaxInd]:=A[MinInd];
A[MinInd]:=temp;
WriteLn;WriteLn;
for i:=1 to n do
   Write (A[i]:5);
WriteLn;
ReadLn;
end.

Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin n : = 0; s : = 512; while s > =0 do begin s : = s -20; n : = n + 1 end; write(n) end

MOGZ ответил