//Видимо, это одна задача, так как "изменения" во второй не указаны //Pascal ABC.NET v3.1 сборка 1172
Const n=20;
Var ar:array[1..n] of integer; i:integer; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(10)-3; write(ar[i]:4); if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0; end; writeln; writeln('Final array:'); for i:=1 to n do write(ar[i]:4); end.
//Pascal ABC.NET v3.1 сборка 1172
Const
n=20;
Var
ar:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(10)-3;
write(ar[i]:4);
if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0;
end;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
Пример работы программы:
First array: 2 -3 5 6 -3 -3 1 -2 -3 1 3 -3 4 -3 1 -1 6 6 2 3
Final array: 4 0 10 12 0 0 2 0 0 2 6 0 8 0 2 0 12 12 4 6
public static void main(String[] args) throws java.io.IOException{
int c, n = 0, array[];
while((c = System.in.read())==13 || (47<c && c<58 && (n = n*10+c-48)>-1));
if(25<n || c!=10)return;
array = new int[n];
for(c = 0; c<n; c++){
int d = 0; boolean negative = false;
while((d = System.in.read())!=10)
if(47<d && d<58)array[c] = array[c]*10+d-48;
else if(d==45)negative = true;
if(negative)array[c]*=-1;
}
sortArray(array);
for(c = 0; c<n; c++)System.out.print(array[c]+" ");
}
private static void sortArray(int[] array){
for(int c = 0; c<array.length-1; c++){
int b = c, e;
for(int d = c+1; d<array.length; d++)
if(array[d]>array[b])b=d;
e = array[c];
array[c] = array[b];
array[b] = e;
}
}
}