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

Составить программу в паскале: для заданного двумерного массива подсчитать сумму элементов в каждой строке.сформировать одномерный массив и вывести в нем эти суммы по возрастанию

👇
Ответ:
KarinaKotik11
KarinaKotik11
14.03.2022
Вот, длинно вышло, но зато работает)
4,6(70 оценок)
Открыть все ответы
Ответ:
2зик20
2зик20
14.03.2022

#include<iostream> //Если обьявили подключение библиотеки,то уж напишите что подкулючаете

using namespace std;

int main()

{

int a, b, c, i, y;

cin >> a;

//int A[a];  В плюсах такого нет! если размерность массива заранее не предопределена(например int a=10),то компилятор такого не пропустит.Нужно использовать динамику

int *A = new int[a];

int *B = new int[a];

 

//for (i = 0; i{Где вы такой цикл For Нашли? почитайте про циклы в плюсах

for (int i = 0; i < a;i++){

 cin >> b;

 A[i] = b;

 cin >> c;

 B[i] = c;

}

for (int i = 0; i<a;i++) //вооще хз что вы пытались сделать циклом ниже

for (int y = i + 1; y<a;y++)

{

  if (B[y]>B[i] || B[y] == B[i] && A[i]>A[y])  

  {

   c = B[i];

   B[i] = B[y];

   B[y] = c;

   c = A[i];

   A[i] = A[y];

   A[y] = c;

  }

 }

 

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

  cout << "A[" << i << "] = " << A[i] << "   B[" << i << "] = " << B[i] << endl;

 system("pause");

 return 0;

}

4,8(68 оценок)
Ответ:
Арте20
Арте20
14.03.2022
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

procedure СредняяЦифра(Число: int64; var Цифра: integer);

begin

 var СтроковоеПредставление := Число.ToString;

 var ЧислоРазрядов := СтроковоеПредставление.Length;

 var ПозицияЦифры := ЧислоРазрядов div 2 + 1;

 Цифра := СтроковоеПредставление[ПозицияЦифры].ToDigit

end;


begin

 var ЗаданноеЧисло: int64;

 Read(ЗаданноеЧисло);

 var ИскомаяЦифра: integer;

 СредняяЦифра(ЗаданноеЧисло, ИскомаяЦифра);

 ИскомаяЦифра.Println

end.

Пример1236435234
4,7(27 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ