Ответы на вопрос:
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.
Популярно: Информатика
-
garev064danil09.10.2020 19:58
-
vikarere705.05.2021 09:10
-
Жак10407.11.2021 08:35
-
алина1100106.05.2020 02:50
-
Yanas701.01.2020 11:16
-
Надюфка199723.02.2022 11:09
-
mminovskaya77717.02.2020 16:42
-
коала2213.12.2020 01:32
-
prisnik125230.01.2020 18:03
-
lexalarionov1115.01.2023 09:52