Ответы на вопрос:
Program n1;
const n=10;
var a: array[1..n] of integer;
i,num,kt: integer;
begin
randomize;
kt:=0;
num:=0;
for i:=1 to n do
begin
a[i]:=random(25)-12;
write(a[i],' ');
end;
for i:=1 to n do if a[i] mod 5=0 then begin
num:=i;
kt:=kt+1;
if kt=2 then break;
end;
writeln;
write(num);
end.
Популярно: Другие предметы
-
Anyazz02.10.2020 13:57
-
slaider119.06.2022 07:38
-
tanecka222.06.2022 16:33
-
sowaties06.01.2020 05:41
-
karbannikita23.05.2020 06:55
-
Юлианана22818.10.2022 18:13
-
мяеенри26.10.2022 13:12
-
lesanazyrova20.06.2020 04:08
-
skripniklenok1325.03.2020 21:49
-
Ildessova28.10.2021 01:38