Составить программу на языке Составить программу нахождения минимального элемента и его номера в массиве вещественных чисел не более 40, задаваемых вводом с клавиатуры. 2. Сформировать массив (вывести на экран) из т случайных целых чисел на промежутке от -60 до 60, найти сумму чисел больших 20.

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
  var m,n:integer;
  Write('Введите n и m: '); Read(n,m);
  var a:=MatrixRandom(n,m,-25,19);
  var max:=-26; // меньше возможного меньшего
  for var i:=0 to n-1 do begin
    for var j:=0 to m-1 do begin
      Write(a[i,j]:4);
      if a[i,j]>max then max:=a[i,j]
      end;
    Writeln
    end;
  Writeln('Максимальный элемент равен ',max)
end.

Тестовое решение:
Введите n и m: 5 8
 -25  -3 -20  -8  -4 -21   9 -16
   0  17   9 -22  10  15  -2  11
  -1  17 -12 -15   0  -7  17 -16
 -22  -9 -18   4  -4  -9   4 -16
  -8 -17 -21  11  -4  -7 -12  13
Максимальный элемент равен 17

Это же изи!
#include <iostream>
#include <cstdlib>
#include <vector>
using namespace std;

int main()
{
vector<int> arr;
int c;
cout <<"Введите количество элементов массива: ";
cin >>c;
char ch;
cout <<"Заполнить массив случайными числами? (y/n): ";
cin >>ch;
if((ch=='y') || (ch=='Y'))
{
cout <<"Начальный массив:" <<endl;
srand(time(0));
for(unsigned i=0; i<c; ++i)
{
arr.push_back((rand()%1001)-500);
cout <<arr[i] <<" ";
}
cout <<endl;
}
else
{
int a;
cout <<"Введите элементы массива: ";
for(unsigned i=0; i<c; ++i)
{
cin >>a;
arr.push_back(a);
}
}

cout <<"Измененный массив:" <<endl;
for(unsigned i=0; i<c; ++i)
{
arr[i]*=-1;
cout <<arr[i] <<" ";
}
cout <<endl;

return 0;
}