Ответы на вопрос:
const
n = 30;
var
a: array [1..n] of integer;
i, mini: integer;
begin
for i : = 1 to n do
begin
a[i] : = random(30);
write(a[i], ' ');
end;
writeln;
mini : = 1;
for i : = 1 to n do
if a[i] < a[mini] then
mini : = i;
writeln('a[', mini, ']=', a[mini]);
end.
Популярно: Информатика
-
Wolf200205.11.2022 08:32
-
юлия191309.01.2023 07:21
-
толик14709.10.2022 16:38
-
g8trouble21.11.2021 10:14
-
asikpozitiv306.08.2022 16:22
-
незринхорошист224.02.2021 18:27
-
ЛюБИмИЦа5501.03.2021 02:13
-
bkonok83207.10.2022 17:53
-
palienkoana28.07.2020 19:56
-
steeg9910.03.2022 14:40