кто шарит в Паскаль. Реализовать работу процедур:

1. Составить функцию, возвращающую значение True, если кол-во положит. чисел в текстовом файле больше кол-ва отрицательных, и значение False, если - наоборот. (Файл содержит числа типа real)

2. Составить процедуру для ввода из текстового файла матрицы A (m на n) m,n<=5. Матрица в текстовом файле сформирована в виде матрицы

187

356

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

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

owl2006owl

Информатика

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

№1 data 11,12,14,9,7,6,11,-20,55,333,222,111,11,900,-100,23,16,17,30,21,22,24,55,4444,500 dim a(25) for i=1 to 25 read a(i) print a(i) next for i=1 to 25 for j=1 to 24 if a(j)< a(j+1) then swap a(j),a(j+1) next next print "summa 4etireh naibolshih="; a(1)+a(2)+a(3)+a(4) print "summa 4etireh naimenshih="; a(25)+a(24)+a(23)+a(22) №2 cls input "n"; n dim a(1 to n), b(1 to n) for i = 1 to n a(i) = int(rnd * 100) b(i) = int(rnd * 100) print a(i), b(i) next i imin = 0 min = b(1) for i = 1 to n if b(i) < min then imin = i if i > imin then s = s + a(i): k = k + 1 next i sr = s / k print print "imin"; imin print "sr"; sr

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

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

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

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

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

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

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

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

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

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