Предмет: Информатика, автор: lik18da

Программа на языке паскальАВС: найти минимальное из 50 введенных чисел

Ответы

Автор ответа: LRSM
1

Ответ:

  • begin
  • var a := ReadArrInteger(50);
  • Println('Минимальное:', a.Min);
  • end.

Пример работы:

Приложения:
lik18da: а есть еще способы? можно ли как нибудь заменить ReadArrInteger(50)?
LRSM: Можно на статический поменять:
var a: array [1..50] of integer;
for var i := 1 to 50 do read(a[i]);
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Английский язык, автор: mrakobessss
Помогите пожалуйста, очень срочно. 

Put questions to the underlined parts of the sentences:
1. The consignment was shipped yesterday.
2. English is spoken in many countries.
3. This important information is gathered and analyzed by economists. 
4. The Gross Domestic Product will be measured in terms of current prices.
5. Used goods are not included in the GDP because they add nothing to the nation's wealth.
6. Mr. Brown was appointed the head of sales department.
7. This order will he fulfilled in time.
8. This process is called manufacturing.

Make these sentences passive. Only use by if it is neecssury to say who did the action.
1. Karl Marx wrote Das Kapital.
2. They are repairing your car now.
3. Steve Jobs founded Apple Computers.
4. The board will dIscuss the proposal.
5. Did anyone inform Mrs Wilson
6. They make Renault cars in Slovenia.
7. They have transferred him to the New York office.
8. The princess opened the new conference center. 
9. They had made a full investigation by the 1st of June.
1 год назад
Предмет: Английский язык, автор: 12345viki
допоможіть будь-ласка  срочно....... срочно.........
1 год назад
Предмет: Русский язык, автор: Обоняшка
Подберите фразеологизмы на тему "Язык Речь.Общение"
(не менее 10)
1 год назад
Предмет: Математика, автор: juraevtimka007
Сумма трёх последовательных четных чисел равна 3 000.Найдите эти числа
8 лет назад
Предмет: История, автор: Dilasuperklass
Вклад кочевников в мировую культуру
8 лет назад