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

Рисунок
написать программу в паскале
и составить программу которая выводит карту беларуси, строит таблицу с данными о площади и глубине озёр, столбчатую или линейную диаграмму

Показать ответ
Ответ:
superutkanosska22
superutkanosska22
18.10.2022 02:17
 Иван-дурак          -  конь
 Али-Баба             -   пещера с сокровищами
Мышка-норушка   -  Теремок
Иван-царевич       -  избушка на курьей ножке
Лиса -                  Колобок, Колобок, спой мне песенку! - Колобок
Королевич Елисей   -         Ветер, ветер! Ты могуч, ты гоняешь стаи туч Ты волнуешь сине море,Всюду веешь на просторе. Не боишься никого, Кроме бога одного. Аль откажешь мне в ответе? Не видал ли где на свете Ты царевны молодой?                               -      Ветер  
Королевич Елисей                 Месяц, месяц, мой дружок,Позолоченный рожок! Ты встаешь во тьме глубокой, Круглолицый, светлоокий, И, обычай твой любя, Звезды смотрят на тебя. Аль откажешь мне в ответе? Не видал ли где на свете Ты царевны молодой?                                              -   Месяц
                   
0,0(0 оценок)
Ответ:
Const
  k = 7;
  p = 10;

var
  i, j, e, max, min: integer;
  F: array[1..k, 1..p] of integer;

begin
  Randomize;
  writeln('Исходная матрица');
  max := -32768;
  min := 32767;
  for i := 1 to k do
  begin
    for j := 1 to p do
    begin
      e := random(100) - 50;
      if e > max then max := e
      else if e < min then min := e;
      write(e:4);
      F[i, j] := e
    end;
    writeln
  end;
  F[1, p] := max;
  F[k, 1] := min;
  writeln('Результирующая матрица');
  for i := 1 to k do
  begin
    for j := 1 to p do
      write(F[i, j]:4);
    writeln
  end
end.

Тестовое решение:

Исходная матрица
  34  36  41   9  -4  39  29   1  15 -33
  13  -9 -29  28 -45  -1   8  38  37  12
 -33  45   3  35 -47 -14 -30  49 -29  -6
 -50 -49  42  15  46   4  24 -21 -10  23
 -14  30 -14 -46  33 -26  24   2  -3 -31
 -27  15  47  25 -43  39 -17 -44   6 -40
  19  30 -20 -29 -34  12  -2   5  32   0
Результирующая матрица
  34  36  41   9  -4  39  29   1  15  49
  13  -9 -29  28 -45  -1   8  38  37  12
 -33  45   3  35 -47 -14 -30  49 -29  -6
 -50 -49  42  15  46   4  24 -21 -10  23
 -14  30 -14 -46  33 -26  24   2  -3 -31
 -27  15  47  25 -43  39 -17 -44   6 -40
 -50  30 -20 -29 -34  12  -2   5  32   0
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота