(Паскаль) Дан текстовый файл, содержащий вещественные числа (положительные и отрицательные) в произвольном порядке?

СофьяVIP 3 мар. 2022 г., 12:19:22

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.

Программа работает с неограниченным числом положительных чисел в файле.

Azizjon211 11 мар. 2022 г., 15:37:01 | 10 - 11 классы

Написать программу, которая будет выполнять функцию команды dir (просмотр содержимого текущей директории) в операционной системе Microsoft DOS?

Написать программу, которая будет выполнять функцию команды dir (просмотр содержимого текущей директории) в операционной системе Microsoft DOS.

Данная команда выводит на экран список папок и файлов, которые содержаться в текущем каталоге.

Программа должна выводить на экран следующую информацию о файлах :

имя файла или папки ;

размер файла ;

дата последнего изменения файла,

файловые атрибуты ( скрытый файл, файл только для чтения).

Tatyanashmi 18 апр. 2022 г., 16:10:09 | 5 - 9 классы

ЭТО ЗАДАНИЕ НАДО РЕШИТЬ НА PYTHONПодсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел?

ЭТО ЗАДАНИЕ НАДО РЕШИТЬ НА PYTHON

Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел.

Входные данные

Вводится число N, а затем N чисел.

Выходные данные

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

Примеры

Входные данные

5

28

0

0

0

0

Выходные данные

4

1

0.

TeriLis 13 апр. 2022 г., 04:02:47 | 5 - 9 классы

Составьте программу, которая сравнивает два целых числа введенных с клавиатуры - положительное и отрицательное и выводит положительное число на экран?

Составьте программу, которая сравнивает два целых числа введенных с клавиатуры - положительное и отрицательное и выводит положительное число на экран.

Ignor73 2 янв. 2022 г., 06:40:05 | 10 - 11 классы

Дан массив вставить число k после первого отрицательного элемента?

Дан массив вставить число k после первого отрицательного элемента.

Паскаль.

Напишите, пожалуйста.

Edgar02082006 8 февр. 2022 г., 12:30:43 | 5 - 9 классы

Сравните между собой текстовый файл "Приглашение 1 и 2"?

Сравните между собой текстовый файл "Приглашение 1 и 2".

Определите файл с большим объемом памяти.

Баскетболист1 11 янв. 2022 г., 06:29:45 | 5 - 9 классы

Записать на языке паскаль выражение "x – положительное число"?

Записать на языке паскаль выражение "x – положительное число".

MultyPulty 8 февр. 2022 г., 14:27:57 | 5 - 9 классы

Ввести с клавиатуры 9 производных чисел (положительных и отрицательных)?

Ввести с клавиатуры 9 производных чисел (положительных и отрицательных).

Вычислить среднее арифметическое нечетных и отрицательных из них.

Нужна программа для паскаля.

Anonimno228 5 янв. 2022 г., 09:14:52 | 5 - 9 классы

Помогите решить?

Помогите решить.

Всё в с + + , для code blocks.

1. Вычислите сумму данных 100 натуральных чисел.

Вводятся 100 чисел, сумму которых необходимо посчитать.

2. Вводится число N, а затем N чисел.

Подсчитайте, сколько среди данных N чисел нулей.

3. Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел.

Вводится число N, а затем N чисел.

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

Катя45879 4 янв. 2022 г., 23:19:11 | 5 - 9 классы

Задача 9Дано натуральное четырехзначное число?

Задача 9

Дано натуральное четырехзначное число.

Найти наименьшую нечетную цифру в числовой записи данного числа.

Формат входных данных :

Входной файл содержит натуральное четырехзначное число.

Формат выходных данных :

Выведите наименьшую нечетную цифру в числовой записи данного числа.

Если нечетных цифр в числе нет, выведите в выходной файл - 1.

Примеры :

Вход

1234

Выход

1.

Vektor2001 20 мар. 2022 г., 01:55:49 | 5 - 9 классы

Скорость передачи данных через ADSL - соединение равна 256000 бит / с?

Скорость передачи данных через ADSL - соединение равна 256000 бит / с.

Передача файла через данное соединение заняла 40с.

Каков объем файла в Кбайтах (впишите в бланк только число)?