Вася и петя играют в игру. вася загадывает и говорит число, а петя производит вычисления по алгоритму - id454599420210131 от shshdbAsan 31.01.2021 09:11

Question

Информатика: Вася и петя играют в игру. вася загадывает и говорит число, а петя производит вычисления по алгоритму ниже. 1. число увеличить вдвое. 2. прибавить 4. 3. если в числе есть нули, то зачеркнуть их. 4. если число не делится на 3, то умножить на 1 и перейти к п.2, иначе вычесть 0 и перейти к п.5. 5. вычесть 5. вася загадал число 50. запиши те числа, которые будут получаться у пети в результате выполнения каждого пункта:

shshdbAsan · Accepted Answer

Обычно размер указывают, раз нету, взял по дефолту 10(Const N=10). И диапазон какой-то странный, думаю имелось введу (-5;5)
Program G;
Uses Crt;
Const N=10;
Var i: integer; mass: array [1..n] of integer;
Begin
Randomize;
ClrScr;
Writeln('Исходный массив из 10 чисел диапозона (-5;5):');
For i:=1 to N do
Begin
Mass[i]:=Random(11)-5;
Write(Mass[i]:4);
End;
Writeln;
Writeln('Исходный массив после замены всех отрицательны на -1:');
For i:=1 to N do
If mass[i]<0 then mass[i]:=-1;
For i:=1 to N do write(Mass[i]:4);
Readln;
End.

MOGZ ответил