Информатика: 2. найти наименьший элемент массива случайных чисел

Ариша337

23.12.2021 22:16

Информатика

Есть ответ 👍

2. найти наименьший элемент массива случайных чисел

148

183

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

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

светилек

Информатика

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

Конечно, простейшая, но и на ней можно проследить состояние изучения программирования в наших школах. { 1. borland (turbo) pascal 7.0, 1994г., статический массив } uses crt; const nn=1000; var i,n,mn: integer; a: array[1..nn] of integer; begin randomize; clrscr; write('n='); read(n); mn: =1000; for i: =1 to n do begin a[i]: =random(199)-99; write(a[i],' '); if a[i]< mn then mn: =a[i] end; writeln; writeln('наим. элемент ',mn); readkey end. выполнение во вложении 1. // 2. free pascal 3.0.0, 2015г., динамический массив uses crt; var i,n,mn: integer; a: array of integer; begin randomize; clrscr; write('n='); read(n); setlength(a,n); mn: =1000; for i: =0 to n-1 do begin a[i]: =random(199)-99; write(a[i],' '); if a[i]< mn then mn: =a[i] end; writeln; writeln('наим. элемент ',mn); readkey end. выполнение во вложении 2 // 3. pascalabc.net 3.2, 2016г., современное решение begin var a: =arrrandom(readinteger('n=',99); a.println; writeln('наим. элемент ',a.min) end. выполнение во вложении 3. сделать выводы каждый может примечание: все решения сделаны в среде pascalabc.net 3.2, который для уровня школьных можно считать совместимым на уровне исходного текста с версиями паскалей.

vefremka

Информатика

4,8(44 оценок)

Var i,min: integer; a: array[1..10] of integer; begin for i: =1 to 10 do begin a[i]: =random(20); write(a[i],' '); end; writeln; min: =a[1]; for i: =2 to 10 do if a[i]< min then min: =a[i]; writeln(min); end.

pavelivanov199ozg2xn

Информатика

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

неправда : Увага , появилась неалкольна водка

Правда : Водка дорводить людей до поганого

Объяснение:

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

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

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

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

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

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

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

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

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

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