// PascalABC.NET
begin
var n := 6;
var a := MatrRandom(6, 6, -99, 99).Println;
var (k, s) := (0, 0);
for var i := 1 to n - 1 do
for var j := 0 to i - 1 do
begin
Inc(k);
s += a[i,j]
end;
Println('Сумма элементов', s);
Print('Их количество', k)
end.
Код на C++:
#include <iostream>
#include <ctime>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
int a, b, c;
cin >> a >> b >> c;
if (a > b && a > c)
{
if (b > c)
{
cout << c << " " << b << " " << a;
}
else
{
cout << b << " " << c << " " << a;
}
}
else if (b > a && b > c)
{
if (a > c)
{
cout << c << " " << a << " " << b;
}
else
{
cout << a << " " << c << " " << b;
}
}
else if (c > a && c > b)
{
if (a > b)
{
cout << b << " " << a << " " << c;
}
else
{
cout << a << " " << b << " " << c;
}
}
cout << endl;
return 0;
};
Объяснение:
Тут мы записываем переменные a, b, c. Теперь тут вместо сортировки идет проверка переменных на больше/меньше другой переменной
Поделитесь своими знаниями, ответьте на вопрос:
Задача на составление программы на языке Pascal. Вычислить сумму и число элементов матрицы A[6x6], находящихся под главной диагональю
В объяснении
Объяснение:
program zadacha;
const n= 6, m=6;
var a:array[1..n, 1..m] of integer;
i, j, s, k: integer;
begin
RANDOMIZE;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random (100)-50;
write(a[i,j]:5);
end;
writeln;
end;
s:=0;
k:=0;
for i:=1 to n do
for j:=1 to m do
if i>j then
begin
k:=k+1;
s:=s+a[i,j];
end;
writeln('Сумма=',s);
writeln('Количество=',k);
readln;
end.