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

+ 0 -

YlaGV30

27 янв. 2017 г., 0:56:00 (7 лет назад)

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. 

+ 0 -

Володя2001

27 янв. 2017 г., 2:17:42 (7 лет назад)

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.