Регистрация
Жанел130107
30.12.2020 14:12
Информатика
Есть ответ 👍

Дано натуральное число n и массив натуральных чисел а, заданных случайным образом из диапазона от 30 до 60. найти минимальный элемент и его номер. решить для n=10. на паскале.

267
470
Посмотреть ответы 3

Ответы на вопрос:

TsunamiBrain
TsunamiBrain
4,5(99 оценок)

const

  n=10;

var

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

  i,min,number: integer;

begin

  randomize;

  a[1]: =random(31)+30;

  write (a[1]: 3);

  min: =a[1];

  number: =1;

  for i: =2 to n do

    begin

    a[i]: =random(31)+30;

    write (a[i]: 3);

    if a[i]< min then

      begin

      min: =a[i];

      number: =i;

      end;

    end;

  writeln;

  writeln ('min element - ',min,' s nomerom - ',number);

  readln;

end.

aresu
aresu
4,8(50 оценок)

не понял, зачем нужен n. пишу без него, если что исправьте.

program qwe;

const n=10;

var a: array [1..n] of integer; i,min,nom: integer;

begin

 

for i: =1 to n do

  a[i]: =30+random(30);

 

min: =100;

for i: =1 to n do

  if a[i]< min then begin

                                                          min: =a[i];

                                                          nom: =i;

                                                          end;

writeln('число ',min,' номер его ',nom);

end.

 

end.

karinasss1
karinasss1
4,4(29 оценок)
Const n=3; var a: array[1..n,1..n] of integer; i,j,min,s: integer; upsr,downsr,k: real; begin for i: =1 to n do for j: =1 to n do a[i,j]: =random(10); for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 5); writeln; end; min: =a[1,1]; s: =0; for i: =1 to n do for j: =1 to n do begin if (a[i,j]< min) and (j> i) then min: =a[i,j]; end; for i: =1 to n do for j: =1 to n do if i< j then  s: =s+a[i,j];   upsr: =s/((sqr(n)-n)/2); s: =0; for i: =1 to n do for j: =1 to n do if i> j then  s: =s+a[i,j]; downsr: =s/((sqr(n)-n)/2); k: =sqr(downsr-upsr); writeln('минимальный элемент выше главной диагонали  ',min); writeln('среднее  арифметическое элементов  выше главной диагонали  ',upsr); writeln('среднее  арифметическое элементов ниже  главной диагонали  ',downsr); writeln('квадрат разности  средних арифметических значений элементов матрицы  ',k); end.

Популярно: Информатика