Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
SymbatAlan
0 / 0 / 0
Регистрация: 18.02.2015
Сообщений: 1
#1

Сложить все положительные элементы до первого нулевого элемента и найти их число - Turbo Pascal

18.02.2015, 20:19. Просмотров 350. Ответов 1
Метки нет (Все метки)

сложить все положительные элементы до первого нулевого элемента и найти их число. дан массив А(10)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.02.2015, 20:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сложить все положительные элементы до первого нулевого элемента и найти их число (Turbo Pascal):

Все положительные элементы массива, расположенные правее первого нулевого элемента, увеличить в два раза - Turbo Pascal
10. Все положительные элементы массива а1, а2 , ..., а20, расположенные правее первого нулевого элемента, увеличить в два раза. Cпасибо.

Отсортировать по убыванию элементы главной диагонали, лежащие до первого нулевого элемента - Turbo Pascal
Отсортировать эл-ты главной диагонали ,лежащие до первого нулевого эл-та,по убыванию. Сделать с помощью процедур или функции

Просматривая список в обратном направлении удалить все элементы до первого нулевого - Pascal
Ребят!!помогите плиз решить задачу со списками Добавлено через 2 минуты вобщем дан список, элементы кот-го являются целыми...

Просматривая список в обратном направлении удалить все элементы до первого нулевого - Pascal
Дан список l , элементы которого являются целыми числами . просматривая список в обратном направлении удалить все элементы до первого...

В одномерном массиве из 15 чисел найти индекс первого нулевого элемента - Pascal
Задача: В одномерном массиве из 15 чисел найти индекс первого нулевого элемента. Окажите пожалуйста помощь в решении данной задачи

Блок-схема: найти номер первого нулевого элемента массива - Turbo Pascal
Составить блок-схему к программе. const N=20; var a:array of integer; i, K, m: byte; begin K:=0; m:=0; For i=1...

1
Cyborg Drone
Модератор
5489 / 3098 / 1285
Регистрация: 17.08.2012
Сообщений: 10,010
18.02.2015, 23:45 #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
var a: array [1..10] of integer;
    i, k, s: integer;
    zero: boolean;
begin
  s := 0;
  k := 0;
  zero := false;
  writeln('Введите элементы массива:');
  for i := 1 to 10 do
    begin
      write('a[', i:2, '] = ');
      readln(a[i]);
      zero := zero or (a[i] = 0);
      if not zero
        then if a[i] > 0
          then begin
            s := s + a[i];
            inc(k)
          end
    end;
  if not zero
    then writeln('В массиве нет нулевого элемента.')
    else if k = 0
      then writeln('В массиве нет положительных элементов перед нулевым элементом.')
      else writeln('Сумма положительных элементов до первого нулевого = ', s, ', их количество = ', k);
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.02.2015, 23:45
Привет! Вот еще темы с ответами:

Найти сумму элементов массива, расположенных до первого нулевого элемента - Turbo Pascal
Даны три одномерных массива различной длины (например: 10, 15 и 20 элементов). Для каждого массива найти: - сумму элементов массива,...

Массив. Найти номер первого нулевого элемента и произведение элементов до него - Turbo Pascal
Найти номер первого нулевого элемента массива а1, а2, ..., а25 и произведение элементов, расположенных до него, а среди элементов,...

Найти сумму отрицательных элементов, находящихся после первого нулевого элемента - Pascal
в одномерном массиве A(N) (N<=50) найти сумму отрицательных элементов находящихся после первого нулевого элеметна

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru