Ответы на вопрос:
Const a: array[1..10,1..5] of integer = ( (1,2,3,4,5), (2,2,3,4,5), (3,2,3,4,5), (4,2,3,4,5), (5,2,3,4,5), (6,2,3,4,5), (7,2,3,4,5), (8,2,3,4,5), (9,2,3,4,5), (10,2,3,4,5) ); var i,j: integer; begin writeln; for i : = 1 to 10 do begin for j: = 1 to 5 do write(a[i,j],' '); writeln; end; end.
ответ:
program multi3;
var
a: array [1..3] of double;
i: integer;
p: double;
b: boolean;
begin
randomize;
write ('исходные числа: ');
writeln;
for i : = 1 to 3 do begin
a [i] : = random (4000) / 1000 - 1; // заполняем числами, чтоб были и положительные и отрицательные
write (a[i] : 10 : 3, ' ');
end;
b : = false;
p : = 1;
for i : = 1 to 3 do begin
if abs (a [i]) < 1 then begin
b : = true; // включаем флаг, если найдено хотя бы одно подходящее число
p : = p * a [i];
end;
end;
writeln;
if b then
writeln ('произведение = ', p : 10 : 3)
else
writeln ('произведение не определено.');
readln;
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
sensed05.05.2020 08:28
-
kornilov100110.06.2022 13:17
-
Anakina129.08.2020 09:36
-
LeXonG20.09.2021 03:59
-
risik1205super15.03.2021 08:56
-
miku136821.01.2022 14:19
-
елизавета4щ16.04.2022 23:15
-
Gladiolus9425.05.2020 09:54
-
ryjakomsp00lne27.08.2021 03:30
-
YanaRy20.04.2020 19:37
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.