Question

ОЧЕНЬ СРОЧНО ПОМОГИТЕ
ДАН МАССИВ ИЗ 10 ЧИСЕЛ.ТРЕБУЕТСЯ УМНОЖИТЬ ЗНАЧЕНИЯ ЭЛЕМЕНТОВ ЭТОГО МАССИВА НА 20,ЕСЛИ А(i)>0,или НА 17 ЕСЛИ А(i)<=0​

Answer 1

program mas_umn_esli_bolshe_menshe;

const n=10;

var

p:array[1..n] of integer;

i:integer;

begin

for i:=1 to n do begin

p[i]:=random(11)-5;

write(p[i]:5,' ');

if p[i]>0 then p[i]:=p[i]*20;

if p[i]<0 then p[i]:=p[i]*17;

writeln(p[i]:6);

end;

end.