Составьте программу вычисления в одномерном массиве минимального элемента и его номера.

Question

Информатика

Евгений

22 сентября, 21:04

Составьте программу вычисления в одномерном массиве минимального элемента и его номера.

+1

Ответы (2)

Знаете ответ на вопрос?

Агафоника · Answer 1

1)

var

a: array [1 ... 100] of longint;

i, j, k, n:longint;

begin

readln (n) ;

for i:=1 to n do readln (a[i]) ;

k:=a[1]; j:=1;

for i:=1 to n do

if a[i]
writeln (k, ' ', j) ;

end.

Аркадий · Answer 2

Uses crt;

const N=10;

var a:array [1 ... N] of integer;

x, y, min:integer;

begin

for x:=1 to N do

begin

write ('a[', x,']:') ;

readln (a[x]) ;

end;

min:=a[1];

y:=1;

for x:=1 to N do

if a[x]
begin

min:=a[x];

y:=x;

end;

writeln ('min[', y,']:', min) ;

end.