Определите значения переменной s после выполнения следующих операторов: int s = 0, i = 1; while (i 1) - id776689520201108 от Rapapapapap2212 08.11.2020 05:27

Question

Информатика: Определите значения переменной s после выполнения следующих операторов: int s = 0, i = 1; while (i 1) { s = s + 100 / i; i--; } c++

Rapapapapap2212 · Accepted Answer

Const
n = 10;
var
a: array[1..n] of integer;
i, j, t: integer;
flag:boolean;

begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
    a[i] := random(101)-50;
    Write(a[i]:4)
end;
Writeln;
i:=1;
repeat
    flag:=true;
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin t := a[j]; a[j] := a[j+1]; a[j+1] := t; flag:=false end;
    Inc(i);
until (i>n-1) or flag;
Writeln('Отсортированный по возрастанию массив');
for i := 1 to n do Write(a[i]:4);
Writeln
end.

Тестовое решение:
Исходный массив
-32 -7   2   2 50 -33   1 31   4 -16
Отсортированный по возрастанию массив
-33 -32 -16 -7   1   2   2   4 31 50

Определите значения переменной s после выполнения следующих операторов: int s = 0, i = 1; while (i > 1) { s = s + 100 / i; i--; } c++

MOGZ ответил