Написать функцию которая за меньшее количество повторов с бинарного поиска ищет заданное число в диапазоне от 0 до 100 45 !
Ответы на вопрос:
program raf105;
const
n = 4;
var
a,b: array[1..n,1..n] of integer;
vkol1,vkol2,vsum1,vsum2: array[1..n] of integer;
i,j,sum1,sum2,kol1,kol2: integer;
x1,x2: boolean;
begin
for i: =1 to n do
begin
x1: = false;
x2: = false;
kol1: = 0;
kol2: = 0;
sum1: = 0;
sum2: = 0;
for j: =1 to n do
begin
a[i,j]: = random(-9,9);
b[i,j]: = random(-9,9);
if a[i,j] < 0
then x1: = true;
if b[i,j] < 0
then x2: = true;
if not(x1)
then begin
sum1: = sum1 + a[i,j];
kol1: = kol1 + 1;
end;
if not(x2)
then begin
sum2: = sum2 + b[i,j];
kol2: = kol2 + 1;
end;
end;
vkol1[i]: = kol1;
vkol2[i]: = kol2;
vsum1[i]: = sum1;
vsum2[i]: = sum2;
end;
writeln('массив a');
for i: =1 to n do
begin
writeln;
for j: =1 to n do
write(a[i,j]: 3);
end;
writeln;
writeln;
writeln('массив b');
for i: =1 to n do
begin
writeln;
for j: =1 to n do
write(b[i,j]: 3);
end;
writeln;
writeln;
write('вектор "количество по строкам a": ');
for i: =1 to n do
write(vkol1[i],' ');
writeln;
write('вектор "количество по строкам b": ');
for i: =1 to n do
write(vkol2[i],' ');
writeln;
write('вектор "сумма по строкам a": ');
for i: =1 to n do
write(vsum1[i],' ');
writeln;
write('вектор "сумма по строкам b": ');
for i: =1 to n do
write(vsum2[i],' ');
end.
pascalabc 3.4.2Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
nasowmza05.06.2020 14:28
-
Xieb07.11.2022 05:15
-
DsBrend1129.06.2021 19:14
-
mmwo28.04.2021 18:43
-
VeronikaBruhova27.03.2021 18:59
-
Tatjanaaa14.05.2020 08:25
-
ScourgeTheCat10.01.2023 23:24
-
WakaAmigo29.01.2023 18:07
-
Mayburovmaks19.06.2021 00:30
-
KatyaKerina29.01.2021 13:29
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.