Задача на Паскале.

Задан массив случайным образом. Преобразовать его след. образом:
все отрицательные элементы заменить модулем, положительные удвоить, нулевые заменить числом 10

(напишите полностью решение, пожалуйста)

2

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

2013-03-15T19:03:57+00:00

uses crt;
var a:array[1..10] of integer;
i:integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do begin
a[i]:=random(10-(-10)+1)-10;
write(a[i]:3);
end;
writeln;
for i:=1 to 10 do begin
if a[i]>0 then a[i]:=a[i]*2;
if a[i]=0 then a[i]:=10;
if a[i]<0 then a[i]:=abs(a[i]);
write(a[i]:3);
end;
end.

 

Здесь массив сделан из 10 чисел от -10 до 10. 

 

 

 

 

  • Gink
  • середнячок
2013-03-16T03:49:51+00:00
Program t1;
Var
a: array [1..100] of integer;
i: byte;
begin
for i:=1 to 100 do
begin
readln (a[i]);
end;
for i= 1 to 100 do
begin
If (a[i]<0) then
a[i]= abs(a[i]);
If (a[i]>0) then
a[i]= a[i]*2;
If (a[i]=0) then
a[i]= 10;
end;
end.