В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
зяйка75542
зяйка75542
10.07.2020 22:13 •  Информатика

1. Дана матрица размером 3х2. Найти произведение элементов матрицы. ( )

2. Дана матрица размером 4х4. Найти среднее значение элементов массива. Найти номер элемента массива совпадающего со средним. ( )

3. Дана матрица размером 3х5.Найти количество элементов матрицы больших 0, меньших 0 и равных 0. ( )

4. Дана матрица размером 4х4.Найти сумму чётных и нечётных элементов таблицы.

( )

5. Дана матрица размером 5х2. Разделить все элементы матрицы на минимальный элемент. ( )

6. Дана матрица размером 4*4. Найти наибольший элемент на побочной диагонали. Найти номер строки и номер столбца, на пересечении которых он находится. ( )

7. Дан двумерный массив А[6,9], заполненный случайным образом. Заменить чётные элементы массива на число 11. ( )

8.(ЕГЭ 2018) Дан целочисленный квадратный массив 10 x 10. Опишите на русском языке или на одном из языков программирования алгоритм вычисления суммы максимальных элементов из каждой строки. Напечатать значение этой суммы.

Показать ответ
Ответ:
lsoft
lsoft
31.08.2021 07:54

Program Princess;
uses crt;
var
  M:Integer;
begin
  writeln('');
  writeln('*        Вас приветствует ППП         *');
  writeln('*    Программа Проверки Принцесс      *');
  writeln('*                                     *');
  writeln('*      Сейчас узнаем...               *');
  writeln('');
  writeln('1. Постелите постель для девушки');
  writeln('2. Подложите горошину');
  writeln('3. Дождитесь утра...');
  writeln('4. Разбудите девушку');
  writeln('5. Спросите: "Как Вам спалось?" ');
  writeln('6. Введите в систему ответ девушки:');
  writeln('   0 - "Плохо, совсем не сомкнула глаз..." ');
  writeln('   1 - "Отлично выспалась" ');
  readln(M);
  writeln('');
  writeln('*                Итак...              *');
  if m=0 then
  writeln('* Эта девушка - настоящая принцесса!  *')
  else
  writeln('*  Увы! Эта девушка - не принцесса!   *');
  writeln('');
end.

0,0(0 оценок)
Ответ:
tipichnayapanda
tipichnayapanda
16.05.2023 21:34
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var a:=ReadLines('m17.txt').JoinIntoString.ToIntegers;
  a.Println;
  var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0)
    .Select(x->x.Item2).ToArray;
  if b.Count<>2 then
    Writeln('Количество отрицательных элементов не равно двум')
  else begin
    a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1))
      .Concat(SeqFill(a.Length-b[1]-1,0)).ToArray;
    a.Println
    end
end.

Тестовое решение:
23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10
0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0

Файл с исходными данными имеет имя m17.txt. Тестовый файл находится во вложении. Разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. Также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота