1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var a: array[1..10] of integer;
i: integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
write('Положительные элементы: ');
for i:=1 to 10 do begin
if a[i]>0 then write(a[i],' ');
end;
writeln;
write('Номера положительных элементов: ');
for i:=1 to 10 do begin
if a[i]>0 then write(i,' ');
end;
end.