(паскаль) дан текстовый файл, содержащий вещественные числа (положительные и отрицательные) в произвольном порядке. сформируйте массив, содержащий только положительные числа из файла, и найдите наименьшее среди них.
182
378
Ответы на вопрос:
Program filework; var f: text; i, n, count: integer; l: string; arr: array of real; answ: real; begin assign(f, 'c: \users\ho4hou_ttapkupuct\desktop\test_file.txt'); // в кавычках путь к файлу reset(f); while not eof(f) do begin readln(f, l); if strtofloat(l) > 0 then inc(count); end; setlength(arr, count); reset(f); i: =0; while not eof(f) do begin readln(f, l); if strtofloat(l) > 0 then begin arr[i]: =strtofloat(l); inc(i); end; end; answ: =arr[0]; for i: =1 to arr.length - 1 do if arr[i] < answ then answ: =arr[i]; writeln(answ); close(f); end. p.s. программа работает с неограниченным числом положительных чисел в файле
var a,b,c: integer; s: real; beginwriteln('vvedite abc'); read(a,b,c); s: =(a+b+c)/3; writeln('srednee arifmeticheskoe 3 chisel = ',s); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Пиирмвп22.05.2023 19:39
-
aptemacko16.02.2022 22:24
-
Puma2005041225.04.2020 11:55
-
dragons55u21.01.2022 10:04
-
LenaVolotova16.08.2020 08:38
-
danyaсс29.07.2022 11:46
-
p1ayer133726.01.2021 03:29
-
ESKIMO11125.10.2021 08:15
-
ioiaaea3301.07.2022 20:57
-
charykovavesna25.09.2022 15:28
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.