Дан массив с. найти номер и минимальный элемент в массиве.

Var ar:array[1..10] of integer;
i,min,mini:integer;
begin;
min:=101;
randomize;
writeln('Array:');
for i:=1 to 10 do
 begin;
  ar[i]:=random(100);
  write(ar[i]:4);
  if ar[i]<min then
   begin;
    min:=ar[i];
    mini:=i;
   end;
end;
writeln;
writeln('Min:',min,' in number:',mini);
end.

program fantscrin;

  const n = 11;

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

      i,s,p: integer;

begin

  for i: =1 to n do

    a[i]: = random(8)+4;

  for i: =1 to n do

    write(a[i], '   ');

   

  s: =0;

  p: =1;

  for i: =1 to n do

    if (i mod 2 = 0) then p: =p*a[i]

                    else s: =s+a[i];  

   

  writeln('');

  writeln('сумма = ',s);

  writeln('произведение = ',p);

end.

ответ:

американский инженер и , его работы являются синтезом идей с конкретным анализом чрезвычайно сложных проблем их технической реализации  

он является основателем теории информации, нашедшей применение в современных высокотехнологических системах связи. шеннон внес огромный вклад в теорию вероятностных схем, теорию автоматов и теорию систем — области наук, входящие в понятие «кибернетика». в 1948 году предложил использовать слово «бит» для обозначения наименьшей единицы информации (в статье « теория связи»).

объяснение:

клод шеннон является одним из создателей теории информации. именно он придумал такую единицу информации как бит.