KARNOFFD CODE...
с++
Объяснение:
#include <iostream>
int main()
{
std::cout << "Введите размерность массива: ";
int n, m;
std::cin >> n >> m;
int A[n][m];
srand(time(0));
for(int i=0; i<n; i++)
{
for(int j=0; j<m; j++)
{
A[i][j] = rand()%10;
std::cout << A[i][j] << " ";
}
std::cout << std::endl;
}
int sum=0;
for(int i=0; i<n; i++)
for(int j=0; j<m; j++)
if (i == j)
sum += A[i][i];
std::cout <<"Сумма элементов главной диагонали sum = "<< sum << std::endl;
system("pause>>null");
return 0;
}
pascal
Объяснение:
program summa_3;
var
a, b, s: integer;
begin
Write('Ведите числа a и b: ');
ReadLn(a, b);
if b < a then Swap(a, b);
while a < b do
begin
s := s + a;
a := a + 1;
end;
WriteLn(s);
end.
program summa_4;
var
a, b, s: integer;
begin
Write('Ведите числа a и b: ');
ReadLn(a, b);
if b < a then Swap(a, b);
while a < b do
begin
s := s + sqr(a);
a := a + 1;
end;
WriteLn(s);
end.
program fibo_5;
var
a, b, s, i, n: integer;
begin
Write('Ведите n: ');
ReadLn(n);
a := 0;
b := 1;
Write(b,' ');
for i := 2 to n do
begin
Write(a + b,' ');
s := b;
b := a + b;
a := s
end;
end.
в 10 системе 5.4227059226217E+18