Напишите программу выводящую индекс меньшего числа 3 9 1 3 5

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
var a:=Arr(3,9,1,3,5,8,5,3,6,7,6,5,4,6,1,81); a.Println;
a.IndexesOf(t-gt;t=a.Min).Select(t-gt;t+1).Println
end.

Итог
3 9 1 3 5 8 5 3 6 7 6 5 4 6 1 81
3 15

Леонид Кримнус · Answer 2 · 2019-08-20 18:21:53+3:00

Леонид Кримнус 2019-08-20 18:21:53

var i,n,k,min:integer;
a:array[1..1000] of integer;
begin
write('Write size array: '); readln(n);

for i:=1 to n do
read(a[i]);
min:=a[1];
for i:=1 to n do
if mingt;a[i]
then begin min:=a[i]; k:=i; end;
writeln(k);
end.

Пихтельков Пашка 2019-08-20 18:24:20

program HelloWorld;var mas:array[1..14] of integer; i,men:integer;begin randomize(); for i:=0 to 15 do begin mas[i]:=random(10); write(mas[i]:3); end; men:=mas[1]; for i:=2 to 15 do if mas[i] < men then men:=mas[i]; writeln(men);end.

Jurka Abryzjakov 2019-08-20 18:33:08

Под это подставить можете ?

О проекте

Напишите программу выводящую индекс меньшего числа 3 9 1 3 5

Добро пожаловать!