Регистрация Спросить otvet5GPT
крисс1233
30.11.2022 07:58
Информатика
Есть ответ 👍

1. значения элементов одномерного массива s размерности k уменьшить на значение его минимального элемента. 2. найти и напечатать первые положительные элементы строк матрицы а размерности m×k.

174
497
Посмотреть ответы 3

Ответы на вопрос:

missstelmah2002
missstelmah2002
4,5(31 оценок)
// pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! №1 begin   var s: =arrrandom(readinteger('k='),1,50); s.println;   var min: =s.min;   s.transform(x-> x-min); s.println end. пример k= 13 41 31 28 2 50 46 7 31 40 30 13 8 26 39 29 26 0 48 44 5 29 38 28 11 6 24 №2begin   var m: =readinteger('количество строк в матрице: ');   var k: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',m,',',k,'] ***');   var a: =matrrandom(m,k,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('первые положительные элементы в строках');   a.rows.select(r-> r.where(x-> x> 0).take((x-> x).println end. пример количество строк в матрице: 5 количество столбцов в матрице: 8 *** исходная матрица [5,8] ***   -91 -83 -26    4 -40  33 -40  -6   71 -87  -8  65  94 -19  59  -9   -91 -17  69  32  30  90  63    4   -53 -52  93    4 -34 -70 -75 -95   -99 -42  95  69 -70 -62  39 -22 первые положительные элементы в строках 4 71 69 93 95
Кологривко
Кологривко
4,5(85 оценок)
Program one; uses crt; const     k = 10; var     s: array[1..k] of integer;     i, min: integer; begin     randomize;     writeln('array: ');     for i : = 1 to k do     begin         s[i] : = random(20);         write(s[i], ' ');     end;     writeln;         min : = s[1];       for i : = 2 to k do         if s[i] < min then             min : = s[i];     writeln('min: ', min);     writeln('result: ');     for i : = 1 to k do     begin         s[i] : = s[i] - min;         write(s[i], ' ');     end; end. program two; uses crt; const     m = 5;     k = 5; var     a: array[1..m] of array[1..k] of integer;     i, j, min: integer; begin     randomize;     writeln('matrix: ');     for i : = 1 to m do     begin         for j : = 1 to k do         begin             a[i][j] : = random(20) - 10;             write(a[i][j], ' ');         end;         writeln;     end;     writeln('result: ');     for i : = 1 to m do     begin         for j : = 1 to k do         begin             if a[i][j] > 0 then             begin                 write(a[i][j], ' ');                 break;             end;         end;     end; end.
yanaolok
yanaolok
4,7(90 оценок)
124(x) = 84(10) x^2+2*x+4 = 84 x = 8 124(8) = 8^2+2*8+4 = 64+16+4 = 84(10) ответ: 8

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS