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

Pascal abc. дан двумерный массив m на n. необходимо удалить столбец с минимальным элементом( и сдвинуть влево остальные).

👇
Ответ:
Vayton1337
Vayton1337
26.06.2020
Скопировать и вставить в pascalABC
4,8(100 оценок)
Открыть все ответы
Ответ:
lamowitska
lamowitska
26.06.2020
калькулятор сам составлял

#include<iostream>

 

using namespace std;

 

int main()

{

   setlocale( LC_ALL, "Russian" );

       float a,b,s;

       int dp;

       

   cout << "Привет! Я калькулятор!Какие действие вы будете выполнять:" << endl;

       cout << "1. Сложение. " << endl;

       cout << "2. Отнимание." << endl;

       cout << "3. Умножение." << endl;  

       cout << "4. Деление." << endl;

 

       cout << "Введите число для выбора действия" << endl;

 

       cin >> dp;

 

       switch(dp)

       {

       case 1:

               cout << "Число a = " << endl;

       cin >> a;

       cout << "Число b = " << endl;

       cin >> b;

               s = a + b;

               cout << "\n" << a << " * " << b << " = "<< s << endl;

   break;

 

case 2:

               cout << "Число a = " << endl;

       cin >> a;

       cout << "Число b = " << endl;

       cin >> b;

               s = a - b;

               cout << "\n" << a << " * " << b << " = "<< s << endl;

               break;

 

 

case 3:

               cout << "Число a = " << endl;

       cin >> a;

       cout << "Число b = " << endl;

       cin >> b;

               s = a * b;

               cout << "\n" << a << " * " << b << " = "<< s << endl;

               break;

 

               case 4:

               cout << "Число a =  "  << endl;  

               cin >> a;

               cout << "Число b =  " << endl;

       cin >> b;

               s = a / b;

               cout << "\n" << a << " / " << b << " = "<< s << endl;

               break;

       }

       

 

return 0;

}

1

4,6(92 оценок)
Ответ:
maks737
maks737
26.06.2020
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var a:=ArrRandom(100,-10,10);
  a.Println;
  Writeln(a.Where(x->x>0).Count,' положительных, ',
    a.Where(x->x<0).Count,' отрицательных')
end.

Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных
4,6(100 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ