Нужно 1. найти сумму ряда: 5.6, 5.9, .. ,9.7 2.сравнить, что больше сумма ряда 8.5, 8..9 или произведение чисел от 1 до 3 с шагом 0.25 3. сформировать двумерный массив в размером 55, где элементы массива b[i, j] целые случайные числа в пределах [-5; 10]. вывести элементы массива в виде матрицы. 4. сформировать двумерный массив a размером nm, где элементы массива a[i, j] - целые случайные числа в пределах [1; 30]. найти сумму всех элементов массива. вывести элементы массива в виде матрицы.

102

314

Посмотреть ответы 2

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

Владс119

Информатика

4,7(29 оценок)

1) program gsdn; var k: integer; z,n,i,l,s: real; begin k: =0; l: =5.6; s: =0; repeat k: =k+1; n: =0.3; i: =l+(n*k); s: =i+s; writeln(i); until i=9.8; writeln(s); end.2) program afaf; var k,h: integer; z,n,i,l,s,y: real; begin k: =0; h: =0; l: =8.5; s: =0; repeat k: =k+1; n: =0.1; i: =l+(n*k); s: =i+s; until i=40.9; k: =0; h: =0; l: =1; y: =1; repeat k: =k+1; n: =0.1; i: =l+(n*k); y: =i*y; until i=3; if y-s> 0 then writeln('сумма ряда 8.5, 8..9 меньше произведения чисел от 1 до 3 с шагом 0.25'); if y-s< 0 then writeln('сумма ряда 8.5, 8..9 больше произведения чисел от 1 до 3 с шагом 0.25'); if y-s=0 then writeln('сумма ряда 8.5, 8..9 равно произведению чисел от 1 до 3 с шагом 0.25'); end.3) program dsagsa; var i,j,y: integer; b: array[1..5,1..5] of integer; begin for i: =1 to 5 do for j: =1 to 5 do begin y: =random(16)-5; b[i,j]: =y; end; for i: =1 to 5 do begin write('('); for j: =1 to 5 do write(b[i,j],' '); write(')'); writeln; end; end.4) program fagasg; var i,j,i1,j1,y,s: integer; a: array[1..50,1..50] of integer; begin writeln('введите количество строк в массиве'); readln(i1); writeln('введите количество столбцов в массиве'); readln(j1); s: =0; for i: =1 to i1 do begin write('('); for j: =1 to j1 do begin y: =random(30)+1; a[i,j]: =y; s: =a[i,j]+s; write(a[i,j],' '); end; write(')'); writeln; end; end.матрицы немного коряво вышли, ну и чуть-чуть быдло кода)

sashunyakotova

Информатика

4,8(30 оценок)

// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(10,-20,20); a.println; var r: =a.groupby(x-> x).select(x-> (x.key,x. where(x-> (x[1]> 1) and (x[0]> a.last)); if r.count> 0 then writeln(r.first[0]) else writeln(0) end. пример 10 14 9 -2 -5 -5 -20 -11 14 -13 14

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

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

Задай свой вопрос

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

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

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

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

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

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

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