Массив из 8 элементов заполнен случайными целыми числами из диапазона[-3,5]. Все отрицательные элементы увеличить на 10

Question

Информатика

Калидка

7 ноября, 12:32

Массив из 8 элементов заполнен случайными целыми числами из диапазона[-3,5]. Все отрицательные элементы увеличить на 10

+1

Ответы (1)

Знаете ответ на вопрос?

Аннюня · Answer 1

В PascalABCnet

program mass;

var a: array [1 ... 8] of integer;

n:integer;

begin

for n: = 1 to 8 do

begin

a[n]:=random (1,9) - 4;

write (a[n],' ') ;

end;

writeln;

for n: = 1 to 8 do

begin

if a[n] < 0 then a[n]+=10;

write (a[n],' ') ;

end;

end.