Сформировать файл f целых чисел

@Fdejg · Регистрация: 05.02.2018

Студворк — интернет-сервис помощи студентам

Сформировать файл f целых чисел. Определить сумму записанных в файл значений. Если сумма неотрицательна, сформировать из файла одномерный массив, в который переписать только положительные компоненты файла. Массив распечатать.
Файл типизированный.

@ZX Spectrum-128 · 17.03.2018, 08:00

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
48
49
const
  n = 20;
 
var
  f: file of integer;
  s, x, i: integer;
  z: array [1..n] of integer;
 
begin
  randomize;
  assign(f, 'f.dat');
  rewrite(f);
  for i := 1 to n do
  begin
    x := -n div 2 + random(n);
    write(f, x);
  end;  
  close(f);
  s := 0;  
  writeln('Содержимое файла: ');
  reset(f);
  while not EOF(f) do 
  begin
    read(f, x);
    write(x:5);
    s := s + x;
  end;
  close(f);
  writeln;
  writeln('Sum: ', s);
  if s >= 0 then
  begin
    reset(f);
    i := 1;
    while not EOF(f) do 
    begin
      read(f, x);
      if x > 0 then
      begin
        z[i] := x;
        inc(i);
      end;
    end;
    close(f);
    s := i - 1;
    for i := 1 to s do
      write(z[i]:5);
  end;
end.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Fdejg 0 / 0 / 0 Регистрация: 05.02.2018 Сообщений: 24

	Сформировать файл f целых чисел 13.03.2018, 21:55. Показов 1614. Ответов 1 Метки нет (Все метки) Сформировать файл f целых чисел. Определить сумму записанных в файл значений. Если сумма неотрицательна, сформировать из файла одномерный массив, в который переписать только положительные компоненты файла. Массив распечатать. Файл типизированный. 0

Сформировать файл f целых чисел

Решение