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

2

Ответы и объяснения

2013-12-11T13:31:37+00:00
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]<k then begin k:=a[i]; j:=i; end;
writeln(k, '  ',j);
end.
  • Sky09
  • профессор
2013-12-11T13:57:15+00:00
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]<min then
     begin
          min:=a[x];
          y:=x;
     end;
     writeln('min[',y,']:',min);
end.