Объяснение:
const n=25;
var a:array[1..n] of integer;
i,j,b,otr:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(60)-20;
write(a[i]:4);
end;
for i:=1 to n do
begin
if a[i]<0 then
begin
otr:=a[i];
break;
end;
end;
writeln(#10,'Первое отрицательное = ',otr);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
b:=a[i];
a[i]:=a[j];
a[j]:=b;
end;
writeln('Результат сортировки:');
for i:=1 to n do
begin
write(a[i]:4);
end;
end.
Ошибка у тебя в подсчёте суммы, посчитать ее мы можем даже не используя if'а, просто с двух циклов.
#include<iostream>
#include<ctime>
#define SIZE 10
#define R_MIN -1
#define R_MAX 1
using namespace std;
int main()
{
srand(time(NULL));
int arr[SIZE][SIZE];
int s = 0;
for (int i = 0; i < SIZE; ++i)
for (int j = 0; j < SIZE; ++j)
arr[i][j] = rand() % (R_MAX - R_MIN + 1) + R_MIN;
for (int i = 0; i != SIZE; i++)
for (int j = i + 1; j != SIZE; j++)
s += arr[i][j];
for (int i = 0; i < SIZE; ++i) {
for (int j = 0; j < SIZE; ++j)
{
cout << arr[i][j] << " ";
}
cout << endl;
}
cout << "Summa = " << s;
return 0;
}
