Вопрос задан 11.07.2023 в 20:51. Предмет Информатика. Спрашивает Мосяга Полина.

Ребят , сколько сможете, пж 35 баллов Задание 1 Напишите программу, которая находит среднее

арифметическое всех чисел, записанных в файле в столбик, и выводит результат в другой файл. Задание 2 Напишите программу, которая находит минимальное четное среди отрицательных и максимальное нечетное среди положительных чисел, записанных в файле, и выводит результат в виде написанных в столбик чисел в другой файл. Учтите, что таких чисел может вообще не быть.
0 0
Перейти к ответам

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

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Мирошникова Лиза.

1

var

mas:array[1..100] of integer;

i,n:integer;

en,out:text;

res:real;

qw,qwe:string;  

begin

 n:=0;

 i:=1;

 write('Введите полный путь к импортируемому файлу: ');readln(qw);

 write('Введите полный путь к экспортируемому файлу: ');readln(qwe);

 assign(en,qw+'.txt'); assign(out,qwe+'.txt');  

 reset(en); rewrite(out);

 while not Eof(en) do    

 begin

 readln(en,mas[i]);      

 n:=n+mas[i];                

 inc(i);        

 end;

   res:=(n/(i-1));  

   write(out,res);  

   close(out);      

   close(en);

 end.

Там во вторую тупо добавляешь:

 max:=-100001;

 min:=100001;

if (mas[i]<0) and (mas[i] mod 2 = 0) and (mas[i]<min) then min:=mas[i];

 if (mas[i]>0) and (mas[i] mod 2 = 1) and (mas[i]>max) then max:=mas[i];  

if (max=-100001)or(min=100001) then writeln(out,'ERROR: please, rewrite yor file')

 else  

 begin

   writeln(out,min);

   writeln(out,max);  

Тоже такие же задачи решал)) лол). Ты не из 604??)))

0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Для выполнения задания нам потребуется использовать язык программирования. Я предположу, что вы хотите использовать Python. Ниже приведены решения обоих заданий:

Задание 1: Нахождение среднего арифметического всех чисел в файле и вывод результата в другой файл.

python
def calculate_average(input_file, output_file): try: with open(input_file, 'r') as file: numbers = [int(line.strip()) for line in file] if not numbers: raise ValueError("Файл пуст, нечего считать.") average = sum(numbers) / len(numbers) with open(output_file, 'w') as output: output.write(str(average)) except FileNotFoundError: print("Файл не найден.") except ValueError as ve: print(f"Ошибка: {ve}") except Exception as e: print(f"Произошла ошибка: {e}") # Пример использования input_file = 'input.txt' output_file = 'output.txt' calculate_average(input_file, output_file)

Задание 2: Нахождение минимального четного среди отрицательных и максимального нечетного среди положительных чисел в файле и вывод результата в другой файл.

python
def find_min_even_and_max_odd(input_file, output_file): try: with open(input_file, 'r') as file: numbers = [int(line.strip()) for line in file] negative_numbers = [num for num in numbers if num < 0] positive_numbers = [num for num in numbers if num > 0] min_even = None max_odd = None for num in negative_numbers: if num % 2 == 0 and (min_even is None or num < min_even): min_even = num for num in positive_numbers: if num % 2 != 0 and (max_odd is None or num > max_odd): max_odd = num with open(output_file, 'w') as output: if min_even is not None: output.write(str(min_even) + '\n') if max_odd is not None: output.write(str(max_odd) + '\n') except FileNotFoundError: print("Файл не найден.") except Exception as e: print(f"Произошла ошибка: {e}") # Пример использования input_file = 'input.txt' output_file = 'output.txt' find_min_even_and_max_odd(input_file, output_file)

Для обоих решений предполагается, что числа записаны в файле "input.txt" по одному числу в каждой строке. Результаты будут записаны в файл "output.txt". Если возникнут ошибки или файлы не будут найдены, программа выведет соответствующие сообщения об ошибке.

0 0

Похожие вопросы

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос