М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
taraniariba
taraniariba
03.05.2020 18:01 •  Информатика

Задан массив действительных чисел размерности 10х10. Найти суммы элементов каждой строки, произведения элементов каждого столбца, и максимальный элемент главной диагонали (подсказка: все элементы, для которых номер строки совпадает с номером столбца).

👇
Ответ:

#include <iostream>

#include <cstdlib>

#include <ctime>

#include <vector>

using namespace std;

int main()

{

int i, j, sum=0, n, m, p=1;

cout<<"Введите количество строк:"<<endl;

cin >> n;

cout<<"Введите количество столбцов:"<<endl;

cin >> m;

 int k=i, h=j;

int a[n][m];

int max = a[0][0];

cout<<"Исходный массив:"<<endl;

for (i=0; i<n;i++)

 {

   for (j=0;j<m;j++)

     {

         a[i][j]=-10 + rand()%20;

         cout<<a[i][j]<<" ";

     }

   cout<<endl;

 }

for (i = 0; i < n; i++)

{

 {

   for (j = 0; j < m; j++)

     {

      sum += a[i][j];    

     }

       cout<<"Сумма "<<i<<" строки равна: "<<sum<<endl;

       sum = 0;

  }

 }    

for (j = 0; j < m; j++)

{

 for (i = 0; i < n; i++)

   {

     p *= a[i][j];  

   }

      cout<<"Произведение "<<j<<" столбца равно: "<<p<<endl;

      p = 1;    

 }

for(k=0, h=0; k<n && h<m; k++, h++)

{

 if(a[k][h]>max)

   {

     max = a[k][h];

   }

}

 cout<<"Наибольшее число на главной диагонали: "<<max<<endl;

4,4(44 оценок)
Открыть все ответы
Ответ:
люси97
люси97
03.05.2020

begin

writeln('1: ',(sqrt(10)+1)/(6.25-1.8*1.8));

writeln('2: ',sin(5)/cos(5)*10*sqrt(19));

writeln('3: ',100*sin(4));

writeln('4: ',sin(cos(1))/0.25);

writeln('5: ',exp(sin(3))*ln(2));

writeln('6: ',sqrt(sqrt(5)+sqrt(6)));

writeln('7: ',(sqrt(3)+2*sqrt(2))/sqrt(sqrt(5)));

writeln('8: ',(exp(sin(3))*ln(2)+exp(sin(2))*ln(2))/(exp(2.4)*ln(4)+1));

end.

Результат:

1: 1.38281649839481

2: -147.353232893516

3: -75.6802495307928

4: 2.0575810340942

5: 0.798202533367663

6: 2.16461491269994

7: 3.04977540329462

8: 0.0980510445730408

Подробнее - на -

Объяснение:

4,7(4 оценок)
Ответ:
gimnastikgirla
gimnastikgirla
03.05.2020
//1)
Type
ty=array[1..25] of integer;

Var
n,i:integer;
ar:ty;

procedure sortbutmeh(var ar:ty;n:integer);
Var
i,j,c:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if ar[i]<ar[j] then
begin
c:=ar[i];
ar[i]:=ar[j];
ar[j]:=c;
end;
end;

begin
randomize;
readln(n);
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(100);
write(ar[i]:4);
end;
sortbutmeh(ar,n);
writeln;
writeln('Array after sortbutmeh()');
for i:=1 to n do
write(ar[i]:4);
end.

//2)
Var
n:integer;

procedure ned(n:integer);
begin
case n of 
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье');
end;
end;

begin
readln(n);
ned(n);
end.

//3)
Var
s:string;

function lengthbutmeh(s:string):integer;
begin
while pos(' ',s)<>0 do
delete(s,pos(' ',s),1);
lengthbutmeh:=length(s);
end;

begin
readln(s);
writeln(lengthbutmeh(s));
end.
4,5(65 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ