Написать программу, которая выводит пример на вычитание (в пределах 100), запрашивает ответ пользователя, - id539733620221031 от vvbedash 31.10.2022 04:44

Question

Информатика: Написать программу, которая выводит пример на вычитание (в пределах 100), запрашивает ответ пользователя, проверяет его и выводит сообщение правильно! или вы ошиблись и правильный результат. program programxy; const n=100; var inputtext : integer; begin randomize; var x : = random(n) + 1; var y : = random(n) + 1; var z : = x - y; writeln( решите пример: , x, - , y, = ); readln(inputtext); if inputtext = z then writeln( правильно! ) else writeln( вы ошиблись! правильный ответ: , z) end. надо сделать

vvbedash · Accepted Answer

Const
n = 15;

var
a: array[1..n] of integer;
i: integer;

begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
    a[i] := Random(61) - 30;
    Write(a[i]:4);
    if a[i]>0 then a[i]:=2*a[i]
    else
      if a[i]<0 then a[i]:=7
end;
Writeln;
Writeln('После преобразования');
for i := 1 to n do Write(a[i]:4);
Writeln
end.

Тестовое решение:
Элементы массива
-20 15 16 20   0 16 -15 -1 -2 21 -8 -10   4 -24   1
После преобразования
   7 30 32 40   0 32   7   7   7 42   7   7   8   7   2

MOGZ ответил