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

Задание в паскале выполнить.


Задание в паскале выполнить.

👇
Открыть все ответы
Ответ:
Amina1225
Amina1225
07.12.2022
#include <iostream>
using namespace std;
int main()
{
    int n, m, c;
    cout << "n = ";
    cin >> n;
    cout << "m = ";
    cin >> m;
    int a[n][m];
    for(int i = 0; i < n; i++)
    {
        cout << "Введите " << i + 1 << " рядок матрицы (" << m << " элементов) через пробел" << endl;
        for(int j = 0; j < m; j++)
        {
            cin >> a[i][j];
            if(a[i][j] % 2 == 1)
            {
                c++;
            }
        }
    }
    cout << "Количество нечетных элементов массива равно " << c;
}

#include <iostream>
using namespace std;
int main()
{
    int n, mi = 0, mj = 0, sum = 0;
    cout << "n = ";
    cin >> n;
    int a[n][n];
    for(int i = 0; i < n; i++)
    {
        cout << "Введите " << i + 1 << " рядок матрицы (" << n << " элементов) через пробел" << endl;
        for(int j = 0; j < n; j++)
        {
            cin >> a[i][j];
            if(a[i][j] < a[mi][mj])
            {
                mi = i;
                mj = j;
            }
        }
    }
    for (int j = 0; j < n; j++) 
   {
        sum += a[mi][j];
    }
    cout << "Сумма элементов рядка с минимальным элементом равна " << sum;
}
4,6(46 оценок)
Ответ:
detka201080
detka201080
07.12.2022
{Первый вариант}

uses crt;
label 1;
var a: integer;
begin
1: write('Введите азимут в градусах: ');
readln(a);
 if a in [1..89] then writeln('Направление: северо-восток');
  if a = 90 then writeln('Направление: восток');
   if a in [91..179] then writeln('Направление: юго-восток');
    if a = 180 then writeln('Направление: юг');
     if a in [181..269] then writeln('Направление: юго-запад');
      if a = 270 then writeln('Направление: запад');
       if a in [271..359] then writeln('Направление: северо-запад');
        if a in [0,360] then writeln('Направление: север');
          if a > 360 then begin
           clrscr;
введите корректное значение.');
           goto 1;
           end;
          if a < 0 then begin
           clrscr;
введите корректное значение.');
           goto 1;
           end; 
end. 

{Второй вариант}
uses crt;
label 1;
var a: integer;
begin
1: write('Введите азимут в градусах: ');
readln(a);
case a of
 0,360:    writeln('Направление: север');
 1..89:    writeln('Направление: северо-восток');
 90:       writeln('Направление: восток');
 91..179:  writeln('Направление: юго-восток');
 181..269: writeln('Направление: юго-запад');
 270:      writeln('Направление: запад');
 271..359: writeln('Направление: северо-запад');
 end;
if a < 0 then begin
 clrscr;
введите корректное значение.');
 goto 1;
 end;
if a > 360 then begin
 clrscr;
введите корректное значение.');
 goto 1;
 end; 
end. 
4,4(43 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ