0 / 0 / 0
Регистрация: 09.04.2015
Сообщений: 5
1

Записать в другой текстовый файл третий и шестой положительные элементы и найти их сумму

27.06.2015, 08:54. Показов 1511. Ответов 1
Метки нет (Все метки)

Создать текстовый файл,в который записать не менее 20 целых чисел в диапазоне от -15 до 15. Вывести содержание файла на экран. Записать в другой текстовый файл третий и шестой положительные элементы и найти их сумму. Содержимое этого файла вывести на экран. Если таких чисел нет вывести соответствующее сообщение.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.06.2015, 08:54
Ответы с готовыми решениями:

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

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

Сформировать два файла из некоторых чисел. Записать в третий файл положительные элементы первого и второго файлов
Сформировать два файла из некоторых чисел. Записать в третий файл положительные элементы первого и...

Найти произведение матриц и записать в третий текстовый файл
Задача: Два файла с матрицами: первая строка - два числа через пробел(размерность), следующие...

1
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
27.06.2015, 14:34 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
var f:text;
    n,a,i,k,k3,k6,s:integer;
begin
randomize;
assign(f,'1.txt');
rewrite(f);
repeat
write('Количество чисел n>=20 n=');
readln(n);
until n>=20;
for i:=1 to n do
 begin
  a:=-15+random(31);
  write(f,' ',a);
 end;
reset(f);
k:=0;
k3:=-20;
k6:=-20;
writeln('Содержание исходного файла');
while not seekeof(f) do
 begin
  read(f,a);
  write(' ',a);
  if a>0 then
   begin
    inc(k);
    if k=3 then k3:=a
    else if k=6 then k6:=a;
   end;
 end;
close(f);
writeln;
writeln('k3=',k3,' k6=',k6);
if k3=-20 then write('В файле нет трех положительных чисел')
else if k6=-20 then write('В файле нет шести положительных чисел')
else
 begin
  s:=k3+k6;
  assign(f,'2.txt');
  rewrite(f);
  write(f,' ',k3,' ',k6);
  close(f);
  writeln('Сумма третьего и шестого положительных=',s);
  write('Числа записаны в файл 2.txt');
 end
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.06.2015, 14:34
Помогаю со студенческими работами здесь

Разделить исходный файл на два новых и записать положительные элементы в один файл, а отрицательные - в другой
Есть файл, в котором записаны числа. Программа берёт из этого файла число. Их может быть несколько...

Дан текстовый файл, содержащий целые числа. В каждой строке этого файла найти сумму наибольшего и наименьшего элементов и записать их в другой
Дан текстовый файл, содержащий целые числа. В каждой строке этого файла найти сумму наибольшего и...

Записать в другой файл сначала отрицательные элементы, а затем положительные
Здравствуйте форумчане. В общем возникают проблемы в решении программ с использованием файловых...

Записать в другой текстовый файл первые четыре отрицательных элемента и их сумму
Создать текстовый файл, в который записать не менее 20 целых чисел в диапазоне от -10 до 20....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru