Полина56

18.12.2021 16:33

Информатика

Есть ответ 👍

Составьте программу которая в одномерном массиве состоящем из 20 случайных чисел (дробных) из промежутка (0;50) находит наибольший элемент

162

317

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

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

SirErikBoss

Информатика

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

var

a: array[0..20] of real;

i, iMax: integer;

//iMax:real;

begin

Randomize;

iMax := 1;

Writeln('Исходный массив');

for i := 1 to 20 do

begin

a[i] := random(0.00, 50.00);

Write(a[i]:0:2, #32);

end;

for i := 1 to 20 do

if a[i] > a[iMax] then

begin

iMax := i;

end;

Writeln('Элемент номер: a[', iMax, '] ','максимальный. Значение: ', a[iMax]:0:2);

end.

darinanugmanova

Информатика

4,6(20 оценок)

===== PascaslABC.NET =====

begin

var a := ArrRandomReal(20, 0, 50);

a.Println;

Print('Max =', a.Max)

end.

Себастиаан

Информатика

4,6(51 оценок)

ответ:Program z1;

var k : integer;

begin

writeln('Введіть номер місяця');

readln(k);

case k of 1: writeln('січень');

2: writeln('лютий');

3: writeln('березень');

4: writeln('квітень');

5: writeln('травень');

6: writeln('червень');

7: writeln('липень');

8: writeln('серпень');

9: writeln('вересень');

10: writeln('жовтень');

11: writeln('листопад');

12: writeln('грудень');

end; { case }

case k of 1,2,12: writeln('зима');

3,4,5: writeln('весна');

6,7,8: writeln('літо');

9,10,11: writeln('осінь');

else writeln('такого місяця немає');

end; { case }

readln end.

Объяснение:

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

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

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

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

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

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

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

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

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

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