Pascal даны 3 числовые последовательности a,b,c.сформировать две новые последовательности x,y в соответсвии с правилом xi=min(ai,bi)/2 yi=min(bi,ci)/2 i=1,
Ответы на вопрос:
program one;
type tintmassiv = array of real;
var a,b,c,x,y: tintmassiv; n,i: integer;
begin
writeln('введите длину массивов(n)');
readln(n);
setlength(a,n); // создаем динамические массивы длины n
setlength(b,n);
setlength(c,n);
setlength(x,n);
setlength(y,n);
for i : = 0 to n-1 do
begin
writeln('введите ',i+1, ' массива a');
readln(a[i]);
writeln('введите ',i+1, ' массива b');
readln(b[i]);
writeln('введите ',i+1, ' массива c');
readln(c[i]);
end;
for i : = 0 to n-1 do
begin
x[i] : = min(a[i],b[i]) / 2;
y[i] : = min(a[i],c[i]) / 2;
end;
for i : = 0 to n-1 do
begin
writeln('x[',i,']=',x[i]);
writeln('y[',i,']=',y[i]);
end;
a : = nil; //освобождаем память
c : = nil;
b : = nil;
x : = nil;
y : = nil;
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Nastyaprokopova200312.02.2022 10:31
-
Нютикккк21.01.2023 01:32
-
karinkacommelЛіза17.02.2022 09:40
-
megamerezhnikova22.02.2020 17:08
-
zuhranormatova019.08.2022 09:37
-
Печенька170122.10.2022 19:52
-
themac919.01.2020 15:32
-
123456789064009.07.2021 21:21
-
medlitelnaj26.05.2023 11:08
-
olegykoleg01.10.2020 00:11
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.