Составьте программу, которая заполняет одномерный целочисленный массив из 80 элементов случайным образом в диапазоне от 1 до 35, выводит заполненный массив на экран, а затем находит максимальный элемент и минимальный элемент, перемножает максимальный и минимальный элемент, выводит н6а экран полученный ответ.

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(80,1,35); a.Println;
  var amin:=a.Min;
  var amax:=a.Max;
  Writeln('Минимум ',amin,', максимум ',amax,', их произведение ',amin*amax)
end.

Пример
35 15 30 3 4 15 7 28 9 16 31 28 22 33 9 19 16 17 20 11 19 30 2 34 21 10 3 21 26 9 1 11 23 27 4 22 16 13 4 15 4 31 10 25 11 13 8 14 14 33 24 14 7 26 20 6 14 32 17 30 13 21 3 35 16 20 6 31 29 23 3 4 14 6 7 24 20 13 24 9
Минимум 1, максимум 35, их произведение 35

Привет

Объяснение:

Качество нашей водопроводной воды, мягко говоря, далеко от международных стандартов. Согласитесь, пить неочищенную воду из-под крана — это экстремальное занятие, которое может обернуться серьезными проблемами со здоровьем. Поэтому покупка хорошего фильтра является первостепенной задачей.

Если вы не любите рисковать своим здоровьем, то наверняка задумываетесь над тем, как выбрать фильтры для воды. Разнообразие предложений на рынке заставит растеряться даже самого смелого.

Мы вам расставить все на свои места и определиться с выбором — в этой статье рассмотрены существующие разновидности фильтрующих при и их характеристики.

А также приведены основные критерии, влияющие на выбор наиболее подходящего фильтра, и рейтинг лучших производителей как отечественных, так и зарубежных. Для лучшего восприятия информации подобраны наглядные схемы и фотоматериалы, экспертные видеорекомендации по выбору.

Страницы фильтров: о чем вообще речь?

Фильтры — параметры, которые сузить список товаров, чтобы было проще выбрать нужный. Этот список в большинстве случаев можно встретить в левой колонке на страницах категорий.

//Pascal
var
  A: array[1..10] of integer;
  i, Count: byte;
  sum: integer;
begin
  randomize;
  writeln('Сгенерированный массив');
  for i := 1 to 10 do
  begin
    A[i] := random(8)-3;
    if A[i] < 0 then
      sum := sum + A[i];
    write(A[i],' ');
  end;
  writeln;
  writeln('Сумма отрицательных элементов = ', sum);
  writeln;
  writeln('Измененный массив');
  for i := 1 to 10 do
  begin
    if A[i] >= 0 then
    begin
      A[i] := 0;
      Count := Count + 1;
     end;
    write(A[i], ' ');
  end;
  writeln;
  writeln('Количество нулевых элементов = ', Count);
end.