Задание:
Дан целочисленный массив заданный датчиком случайных чисел в интервале (100). Требуется умножить отрицательные значения элементов этого массива на 20. ПОМОГИТЕ ПОЖАЛУЙСТА=)
Решение:
const n=10; Var i: integer; a: array [1… n] of integer; beginrandomize; for i: =1 to n do begin a[i]: =random (100+1) -50; end; for i: =1 to n do begin if a[i]<0 then a[i]: =a[i]+20; end; for i: =1 to n do write (a[i],'); readln; end.
Знаете другой ответ?