Сформировать целочисленный массив из 10 случайных чисел, принадлежащих интервалу [-10;10]. Подсчитать количество положительных элементов и заменить эти элементы их индексами . На экран вывести и первоначальный массив, и получившийся массив. это в PascalABC
шишловская
1
12.01.2021 16:19
0
Другие вопросы по теме Информатика
Dmi3iy
10.05.2021 15:29
Lagoona030
04.04.2021 08:58
agogolewa2016
30.09.2019 14:40
vovasherbak2003
30.09.2019 14:40
масяня194
27.06.2019 13:50
ololeg1
27.06.2019 13:50
Настюшка12305ш384
15.12.2020 13:47
kristina231220
11.04.2020 10:58
Популярные вопросы
- 5. Упростить выражение: 2а+(-За)+7аA) 12aB) -6aC) -8аD) ба...
2 - Почему слушатели верят Хлестакову? (используйте не менее двух цитат)...
1 - Put the verbs into the Past Simple1. Marco Polo (live) in Venice.2....
2 - Определи степень вершины f....
2 - 7) Как узнать, что сила «работает »? Ана не как не работает...
3 - Read the text again. Choose true, false or doesn’t say. Прочитайте...
3 - Какие признаки положены в основы систематических отрядов птиц?...
2 - Құм мінезі Бархан қой соңына ерген жылдарда қаншама су ақты,қаншама...
1 - 69.6.4.1 Think of your favourite films. Use: both,either, neither,...
3 - Удельная-посёлок городского типа (дач..ный п..сёлок) в (Р,р)раменском...
3
var i,k: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do begin a[i]:=random(-10,10);
writeln(a[i]);
if a[i]>0 then begin k:=k+1;a[i]:=i;
end; end;
writeln('измененый массив ');
for i:=1 to 10 do writeln(a[i]);
end.