Составьте блок схему program aaa; var y,x,a,pi: real; begin pi: =3.14; a: =0.8; x: =0; while x< =pi do begin if x< (pi/2) then y: =sqrt(asin(3x)+1) else y: =cos(3x)/sqrt(asin(3*x)+1); x: =x+0.3; writeln(y); end end.

148

357

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

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

din46

Информатика

4,4(57 оценок)

1)program mas; uses crt; const nmax=100; var x: array[1..nmax]of integer; i,n,b,bcol,proz: integer; begin proz: =1; repeat begin clrscr; write('введите размер одномерного массива(n),n='); read(n); end; until n< =nmax; writeln('введите значения элементов массива: '); for i: =1 to n do read(x[i]); writeln('введенный массив: '); for i: =1 to n do write(x[i],' '); writeln; write('введите число b: '); read(b); for i: =1 to n do if x[i]< b then inc(bcol); writeln('количество элементов меньших b: ',bcol); for i: =1 to n do proz: =proz*x[i]; writeln('произведение всех элементов массива: ',proz); readln; end.2)program p1; var x: array[1..100] of integer; max,i,n: integer; begin write('введите количество элементов='); readln(n); writeln('исходный массив'); randomize; for i: =1 to n do begin x[i]: =random(101)-50; write(x[i]: 3); if (x[i]> =max) then max: =x[i]; end; writeln; writeln('новый массив'); for i: =1 to n do begin if (abs(x[i])=max) and (x[i]< > max) then x[i]: =1; if (x[i]< > max) and (abs(x[i])< > max) then x[i]: =0; write(x[i]: 3); end; readln end.3)var a: array[1..15] of integer; i: integer; av: integer; begin randomize; for i : = 1 to 15 do a[i] : = random(40) + 10; writeln('исходный массив: '); for i : = 1 to 15 do write(a[i], ' '); writeln; av : = 1; for i : = 1 to 15 do if a[i] mod 7 = 0 then av : = av * a[i]; if av = 1 then writeln('массив не содержит элементов , которые кратны 7! ') else writeln('произведение равно: ', av); end.4)uses crt; const n=31; var a: array[1..n] of integer; i: byte; max: integer; sr: real; begin clrscr; writeln('vvedite temperaturu po dnyam: '); sr: =0; for i: =1 to n do begin write(i,' maya: '); readln(a[i]); sr: =sr+a[i]/31; end; clrscr; writeln('massiv temperatur: '); max: =a[1]; for i: =1 to n do begin write(a[i],' '); if a[i]> max then max: =a[i]; end; writeln; writeln('samye teplye dni s temperaturoj ',max,' grad'); for i: =1 to n do if a[i]=max then writeln(i,' maya'); writeln; write('srednya temperatura=',sr: 0: 1,' grad'); readln end.5)program prog5_2; const n = 10; var a : array [1..n] of integer; i : integer; imin, imax : integer; d, c, s : integer; begin {заполнение массива а случайными числами} randomize; for i: =1 to n do a[i]: =random(100); {вывод массива а на экран} writeln('исходный массив: '); for i: =1 to n do write(a[i]: 6); writeln; {нахождение индексов наибольшего и наименьшего эемаентов массива} imin: =1; {индекс наименьшего элемента} imax: =1; {индекс наибольшего элемента} for i: =2 to n do begin if a[i] < a[imin] then imin : =i; if a[i] > a[imax] then imax : = i; end; {вывод ответа} writeln('наименьший элемент a[',imin,']=',a[imin]); writeln('наибольший элемент a[',imax,']=',a[imax]); {подсчет количества и суммы чисел между минимальным и максимальным значениями} c: =0; {количество} s: =0; {сумма} for i : =imin to imax do

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

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

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

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

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

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

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

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

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

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