Ввести 2 числа. если их произведение отрицательно, умножить его на 2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран.
148
498
Ответы на вопрос:
var a,b: real;
begin
readln(a,b);
if a*b< 0 then writeln(a*b*2) else writeln(a*b*1.5);
end.
Вматрице 42 элемента. заполним её случайными значениями в диапазоне от x/2 до 2*y, тогда в среднем половина значений попадет в заданный диапазон. const m=6; n=7; var a: array[1..m,1..n] of integer; i,j,k,x,y,x1,y1,s: integer; begin randomize; write('введите через пробел x и y: '); read(x,y); if y< x then begin s: =x; x: =y; y: =s end; writeln('исходный массив'); if x< 0 then x1: =2*x else x1: =x div 2; if y< 0 then y1: =y div 2 else y1: =2*y; k: =y1-x1+1; s: =0; for i : = 1 to m do begin for j : = 1 to n do begin a[i,j]: =random(k)+x1; write(a[i,j]: 4); if (a[i,j]> =x) and (a[i,j]< =y) then s: =s+a[i,j] end; writeln end; for j: =1 to n do a[1,j]: =s; writeln('результирующая матрица'); for i : = 1 to m do begin for j : = 1 to n do write(a[i,j]: 4); writeln end end. тестовое решение: введите через пробел x и y: -5 10 исходный массив 0 11 -6 15 -8 -2 -6 9 0 6 1 11 -2 -1 2 9 13 -1 6 0 9 6 1 -5 8 -3 0 -5 8 4 -8 7 -6 6 11 18 -1 15 -8 -9 -9 20 результирующая матрица 62 62 62 62 62 62 62 9 0 6 1 11 -2 -1 2 9 13 -1 6 0 9 6 1 -5 8 -3 0 -5 8 4 -8 7 -6 6 11 18 -1 15 -8 -9 -9 20
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
PROGamerTV1104.07.2022 17:01
-
aselm9422.12.2020 08:41
-
nelyagedo02.02.2023 21:41
-
karolsevilla201716.08.2021 23:47
-
lovchike21.05.2021 20:15
-
гглол26.02.2023 16:03
-
nelli3713.07.2020 09:47
-
DanielFray02.01.2020 21:23
-
SsssDddddddd22.12.2020 23:24
-
TOLKACHEV1117.01.2023 12:42
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.