1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<span>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<span>.</span></span>
2000 или 2001
...........................
например у тебя ледяное сердце. вот тут как раз в переносном значении.
Мне кажется, что когда дружишь все налаживается. А во время ссоры дружба разрушается.