1.Дан массив целых чисел. Все отрицательные элементы заменить положительными.

2.Дан массив целых чисел.Чётные элементы возвести в квадрат остальные разделить пополам

1

Ответы и объяснения

2012-12-21T19:08:46+04:00

1) 

var a:array [1..3] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 3 do
read(a[i]);
for i:=1 to 3 do
if a[i]<0 then a[i]:=(-1)*a[i];
for i:=1 to 3 do
write(' ',a[i]);
end.

 

2)

var a:array [1..3] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 3 do
read(a[i]);
for i:=1 to 3 do
if a[i] mod 2 =0 then a[i]:=a[i]*a[i]
else a[i]:=a[i]/2;
for i:=1 to 3 do
write(' ',a[i]);
end.