Паскаль,помогите! Ввести с клавиатуры 20 элементов чисел массива ...
Паскаль,помогите!
Ввести с клавиатуры 20 элементов чисел массива , все отрицательные умножить на -5 все положительные умножить на 20 и 0 заменить числом 1000
Есть ответ
18.12.2022
307
Ответ
Program n1;Uses CRT;Const n=20;Var a: array[1..n] of integer; i: integer;beginClrScr;Writeln('Vvedite massiv');For i:=1 to n do readln(a[i]);For i:=1 to n do If a[i]0 then a[i]:=a[i]*20 else a[i]:=1000;For i:=1 to n do write(a[i]:5);readlnend.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022
