ОЧЕНЬ СРОЧНО ПОМОГИТЕ
ДАН МАССИВ ИЗ 10 ЧИСЕЛ.ТРЕБУЕТСЯ УМНОЖИТЬ ЗНАЧЕНИЯ ЭЛЕМЕНТОВ ЭТОГО МАССИВА НА 20,ЕСЛИ А(i)>0,или НА 17 ЕСЛИ А(i)<=0
ДАН МАССИВ ИЗ 10 ЧИСЕЛ.ТРЕБУЕТСЯ УМНОЖИТЬ ЗНАЧЕНИЯ ЭЛЕМЕНТОВ ЭТОГО МАССИВА НА 20,ЕСЛИ А(i)>0,или НА 17 ЕСЛИ А(i)<=0
More Questions From This User See All
Answers & Comments
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.