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>
Найди в интернете там есть
Ответили уже) так что я могу не отвечать
Нурсултан Абищевич Назарбаев
Одного чудового літнього ранку дерево(дуб) побачив маленьку квітку і дуже здивувався.Він нагнувся і спитав: -ти хто?
- я ромашка-гордо відповіла квітка.
-що ти тут робиш?-забитав дуб
-допомагаю і тобі,і природі,і людям.Я ощищую пвовітря для людей і тварин щоб вони могли вільно дихати і щоб люди всвою чергу садили багато рослин.
-ти така маланька а приносиш так багато користі щей розумна яка-похвалив дуб квітку.
-дякую пане -відповіла ромашка ви теж чудовий р*ятувальник