Заменить в массиве все отрицательные элементы на положительные

@Ussor · Регистрация: 16.05.2014

Author24 — интернет-сервис помощи студентам

Дан массив T[n],заменить в нем все отрицательные элементы на положительные.

Pascal

const n=10;
var a,b:array[1..n] of real;
i:integer;
s:real;
begin
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
if a[i]<0 then b[i]:=(-a[i])else b[i]:=a[i];
writeln(b[i],' ');
readln;
end.

@Samhain · 16.05.2014, 21:19

Ussor,

Pascal

const n=10;
var a,b:array[1..n] of real;
    i:integer;
begin
  for i:=1 to n do
    begin
      write('a[',i,']=');
      readln(a[i]);
      if a[i]<0 then b[i]:=-a[i]
      else b[i]:=a[i];
    end;
  for i:=1 to n do
    writeln(b[i]:0:2);
  readln;
end.

@Ussor · 17.05.2014, 15:27 **[ТС]**

Огромное спасибо!!!

@Ussor 0 / 0 / 0 Регистрация: 16.05.2014 Сообщений: 9
	17.05.2014, 15:27 [ТС]	3
	Огромное спасибо!!! 0