Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 05.05.2019
Сообщений: 80
1

Цикл с пост и пред условием

05.11.2019, 19:24. Показов 1341. Ответов 1
Метки нет (Все метки)

Нужно найти сумму массива отрицательных элементов и в программе должны были два ответа с пост и пред условием.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.11.2019, 19:24
Ответы с готовыми решениями:

Решить уравнение с пред условием, пост условием и со счетчиком
Здраствуйте,паскаль я начал изучать недавно,почти ничего непонимаю,уравнение примерно такое...

Определить прирост суммы вклада в банке (циклы с пред- и пост-условием)
Гражданин 1 июля открыл счет в банке, вложив S руб. Через каждый месяц размер вклада увеличивается...

Цикл с пред условием и пост условием: табулирование функций
составить цикл с пред условием и пост условием y=8{x}^{3}-2{x}^{2}+sin(x/2) nx=-20 xk=20 h=0.2

Нужна прога с пред условием и пост условием и циклом
Написать прогу с-пред пост условием и циклич. Дано натуральное n, и действительное Х вычислить :...

1
2368 / 770 / 561
Регистрация: 15.01.2019
Сообщений: 2,383
05.11.2019, 20:23 2
Лучший ответ Сообщение было отмечено hecudel как решение

Решение

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
50
51
52
53
54
55
program Project1;
var
  a: array [1..100] of integer; // Переменная для  хранения массива.
  n: integer; //  Переменная для хранения значения количества элементов в массиве.
  i,k: integer; // Вспомогательные переменные для организации циклов.
  sum: integer; // Переменная для хранения значения суммы.
  flag: boolean; // Логическая переменная для корректного ответа.
begin
  write('Введите значение количества элементов: ');
  Readln(n);
  for i:= 1 to n do
    begin
      write('Введите значение ',i,' элемента: ');
      Readln(a[i]);
    end;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(a[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  flag:= false;
  i:= 1;
  sum:= 0;
  while i <= n do
    begin
      if a[i] < 0 then
        begin
          sum:= sum + a[i];
          flag:= true;
        end;
      inc(i);
    end;
  if flag then
    writeln('Сумма 1: ', sum)
  else
    writeln('В массиве нет элементов с отрицательным значением.');
  flag:= false;
  i:= 0;
  sum:= 0;
  repeat
    inc(i);
    if a[i] < 0 then
      begin
        sum:= sum + a[i];
        flag:= true;
      end;
  until i > n;
  if flag then
    writeln('Сумма 2: ', sum)
  else
    writeln('В массиве нет элементов с отрицательным значением.');
  readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.11.2019, 20:23

Циклы с пред и пост условием
В последовательности целых чисел , завершающейся отрицательным числом , найти порядковый номер...

Вычислить значение выражения с пост и пред условием
напишите программу с пост и пред условием 1,2,3 задачи с пост и пред условием

Цикл с пред. и пост. условиями.
Тема:решение задач с преминением оператора цикла с пост. и пред. условиями. задача 1: Дан набор...

Цикл с пост условием: найти среднее значение последовательности чисел
Пусть вводиться последовательность из n чисел. Требуется найти среднее значение этих чисел....

цикл с пост и пред ( условием)
Добрый день ! Подскажите пожалуйста , когда удобно применять цикл с постусловием и предусловием !...

Цикл с пред и пост условием
не выводит ответ должным образом,подскажите как? unit Unit1; interface uses Windows,...


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

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

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