1.дан массив целых чисел. все отрицательные элементы заменить положительными. 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]<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.
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.