Ответы на вопрос:
const n = 15;
var
arr: array[1..n] of integer;
i: byte;
index: byte;
begin
randomize;
for i: =1 to n do begin
arr[i] : = random(100) - 50;
write(arr[i],' ');
end;
writeln;
index : = 0;
for i: =1 to n do begin
if (arr[i] < 0) and (index = 0) then
index : = i
else
if (arr[i] < 0) and (arr[i] > arr[index]) then
index : = i;
end;
if index < > 0 then
writeln(index,': ',arr[index]);
end.
Популярно: Информатика
-
Ulia20925.06.2020 00:57
-
drobdrod02.02.2022 01:41
-
MilankaMarkova30.08.2021 09:18
-
Qurin21.08.2020 07:16
-
Ваня11111122214.06.2022 10:19
-
polina136221.08.2020 10:50
-
пушинка1019.05.2020 12:56
-
AlminaLaipanova23.06.2020 04:36
-
а6пг01.10.2022 19:55
-
anton27719.03.2020 20:46