• одновременый целочисленный массив из 15 элементов задан [0.200] .Найти минимальный элемент этого массива

Ответы 2

  • мы такое проходили по моему это такbegin  var a := ArrRandom(15, 0, 200);  a.Println();  Writeln(a.Min())end. удачи
  • Program mass;constn=15;typemyarray = array [1..n] of integer;vara: myarray;i,y: byte;beginrandomize;y:=200;for i:=1 to n do begin    a[i]:=random (200);    write(a[i]:4);    if y>a[i] then y:=a[i];    end;writeln;writeln('min=',y);readln;end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years