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>
Луис де Камоэнс: Если многого достоин, Низко милостыни ждать
.
Понимай это так:если ты можешь добиватся всего сам то с твоей стороны будет низко просить у когото денег(или чего-то ещё)
Я на каникулах ездил к башкирам
я вот и сама жду ответа. знаю только. что мин вода замерзает дольше, почему-то там из-за солей)))