Сформировать целочисленный массив из 10 случайных - вопрос №1619830010 от mar2865 12.12.2020 01:48

Question

Информатика: Сформировать целочисленный массив из 10 случайных чисел, принадлежащих интервалу [-10;10]. Подсчитать количество положительных элементов и заменить эти элементы их индексами . На экран вывести и первоначальный массив, и получившийся массив. это в PascalABC

mar2865 · Answer

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.