OlgaStarikova
22.02.2020 17:27

Написать программу, проверяющую, можно ли вставить стержень с сечением в виде прямоугольника с размерами w×h в прямоугольное отверстие с размерами w×h.(язык программирования - c#)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
radvika08
11.09.2021 12:09

#include <iostream>

#include<iomanip>

#include<ctime>

using namespace std;

int main()

{

srand(time(0));

int sum = 0;

int k = 0;

int arr[3][4];

//Создание и последующий вывод массива

for (int i = 0; i < 3; i++)

{

 for (int j = 0; j < 4; j++)

 {

  arr[i][j] = -100 + rand() % 201;

  cout << fixed<<setw(3)<<arr[i][j] << " ";

 }

 cout << endl << endl;

}

//Задание

for (int i = 0; i < 3; i++)

{

 for (int j = 0; j < 4; j++)

 {

  if (i == j)

   sum += arr[i][j];

  if (arr[i][j] > 0)

   k++;

 }

}

cout << endl;

cout << "Sum = " << sum << "    Kol-vo = " << k;

return 0;

}

Объяснение:

0,0(0 оценок)
Ответ:
TheAgentSquid
24.06.2021 13:24
Var   a: array [1..7] of real;   
i: integer;    
m,s:real;
Begin    
For i:=1 to 7 do            
     Read (a[i]);     
For i:=1 to 7 do            
     if a[i]<0 then          
          a[i]:=a[7];   
For i:=1 to 7 do       
     write (a[i],' ');
end.


Var   a: array [1..100] of integer;   
k,x1,x2,i: integer;    
s:real;
Begin    
s:=0;
read(k);   
read(x1);
read(x2);
For i:=1 to k do            
     Read (a[i]);
For i:=1 to k do 
begin
     If a[i] in [x1..x2] then     
          s:=s+a[i];
end;
write (s,' '); 
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота