Сформируйте массив, содержащий 15 элементов, с датчика случайных чисел. Получите новый массив, каждый
элемент которого равен сумме соответствующего исходного
элемента и его квадрата. В полученном массиве найдите
максимальный элемент и его номер. Выведите на экран
исходные и полученные результаты. Напишите программу подробно.

118

139

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

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

ogxo

Информатика

4,7(33 оценок)

var

arr : array [1..15] of real;

a, max : real;

i : integer;

begin

read (a);

randomize;

for i := 1 to 15 do

arr[i] := random (20);

for i := 1 to 15 do

write (arr[i], ' ');

writeln; writeln;

for i := 1 to 15 do

write ((arr[i] + a) / 2, ' ');

max := arr[1];

writeln;

for i := 3 to 15 do

if i mod 2 = 1 then

if arr[i] > max then max := arr[i];

writeln ('max =', max);

end.

Объяснение:

вот

НикитаТим

Информатика

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

Код pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 uses crt; var s1,s2,z1,z2: string; i: integer; begin z1: ='минск столица беларуси'; z2: ='беларусь ты моя синеокая'; writeln('dana stroka: '); writeln(z1); s1: =''; s2: =''; i: =1; while z1[i]< > ' ' do begin s1: =s1+z1[i]; inc(i); end; i: =length(z1); while z1[i]< > ' ' do begin s2: =z1[i]+s2; dec(i); end; delete(z1,1,length(s1)); delete(z1,length(z1)-length(s2)+1,length(s2)); write (s2,z1,s1); writeln; writeln('dana stroka: '); writeln(z2); s1: =''; s2: =''; i: =1; while z2[i]< > ' ' do begin s1: =s1+z2[i]; inc(i); end; i: =length(z2); while z1[i]< > ' ' do begin s2: =z2[i]+s2; dec(i); end; delete(z2,1,length(s1)); delete(z2,length(z2)-length(s2)+1,length(s2)); write (s2,z2,s1); readln; end.

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

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

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

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

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

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

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

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

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

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