Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Найти среднее арифметическое всех отрицательных чисел https://www.cyberforum.ru/ turbo-pascal/ thread717125.html
В одномерном масиве из 23 элементов найти среднее арифметическое всех отрицательных чисел и среднее геометрическое всех положительных чисел Добавлено через 22 секунды спасибо
Turbo Pascal Известно, что в массиве все элементы различны. Найти в нем два наибольших элемента
Известно, что в массиве все элементы различны. Найти в нем два наибольших элемента.
Turbo Pascal Переписать из массива X в массив Y только те элементы, кото¬рые соответствуют указанному условию: Задача Р-006. Переписать из массива X в массив Y только те элементы, кото¬рые соответствуют указанному условию: 1) Отличаются от заданного А; 2) отрицательны; 3) нечетны; 4) совпадают с А или В;... https://www.cyberforum.ru/ turbo-pascal/ thread717098.html Turbo Pascal Выполнить операцию пересечения двух 2–3-деревьев Выполнить операцию пересечения двух 2–3-деревьев. Под пересечением понимается дерево, содержащее вершины первого дерева, входящие и во второе Помогите пожалуйста. https://www.cyberforum.ru/ turbo-pascal/ thread717030.html
Turbo Pascal Модуль: Определить минимальный из элементов массива, являющихся простыми числами
Дан одномерный массив натуральных чисел. Определить минимальный из элементов массива, являющихся простыми числами. Все вспомогательные алгоритмы оформить в отдельный модуль.
Turbo Pascal Преобразовать массив H(n,n), разделив все элементы на максимальный элемент К-го столбца: Помогите товарищи программисты!!!!! Составить подпрограмму: 1. Выполнить задание с использованием процедур. 2. Исходные данные (кроме размерности массивов) ввести из текстового файла, который... https://www.cyberforum.ru/ turbo-pascal/ thread717002.html
Turbo Pascal Нужна программа для создания блок-схем Доброго времени суток. Знаю, что не по теме Турбо Паскаля, но все же. Ребята, раньше ходили легенды про чудо-программу, в которую загружаешь код программы (в том числе и паскалевский) и она сама... https://www.cyberforum.ru/ turbo-pascal/ thread716970.html Turbo Pascal как нужно изменить условие "if." чтобы оно соответствовало заштрихованной зоне рисунка?
Установить принадлежность точки (x, y) заштрихованной области. Значения a и R взять произвольно. program tochka; const R=1; a=1; var x,y:real;...
Turbo Pascal Блок-схема одномерных и двумерных массивов Помогите пожалуйста, в блок-схемах плохо понимаю. Вот задачи: 1.Вычислить 30 значений функции y=ax^2+bx+с на отрезке , сохранить их в массиве Y. Вычислить к-во их в массиве Y. Вычислить к-во... https://www.cyberforum.ru/ turbo-pascal/ thread716908.html Turbo Pascal Вычислите длину самого короткого слова в предложении из трех слов, разделенных пробелами Вычислите длину самого короткого слова в предложении из трех слов, раз-деленных пробелами. https://www.cyberforum.ru/ turbo-pascal/ thread716896.html
Turbo Pascal Файл, в котором хранятся сведения о товарах, находящихся на складе
Помогите, пожалуйста, сделать лабороторную. "Файлы". Разработать программу формирования и корректировки (отдельных элементов) файла, в котором хранятся сведения о товарах, находящихся на складе....
Turbo Pascal Написать программу Задание № 3 Составить блок-схему, программу вычисления переменной X от х1 до х2 и Y от y1 до y2 используя вложенную циклическую структуру, где X – переменная внешнего цикла, Y – переменная внешнего... https://www.cyberforum.ru/ turbo-pascal/ thread716848.html
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,263
Записей в блоге: 1
03.12.2012, 09:23 0

Найти суму положительных элементов в одномерном масиве - Turbo Pascal - Ответ 3793160

03.12.2012, 09:23. Показов 1015. Ответов 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
48
49
Var A,B,C:array[1..100] of integer;
    i,j,s,n,t,m,k:integer;
Begin
    write('Размерность? = ');readln(n);
    writeln('Массив A');
    For i:=1 to n do
    Begin
      A[i]:=random(31);
      write(A[i]:3);
      s:=s+A[i];
    End;
    writeln;
    writeln('Сумма = ',s);
    For i:=1 to n do
     if odd(A[i]) then
     Begin
       inc(m);
       C[m]:=A[i];
     End
     else
     Begin
       inc(k);
       B[k]:=A[i];
     End;
    For i:=k downto 2 do
     For j:=2 to i do
      if B[j]>B[j-1] then
      Begin
        t:=B[j];
        B[j]:=B[j-1];
        B[j-1]:=t;
      End;
    writeln('Массив B');
    For i:=1 to k do
     write(B[i]:3);
    writeln;
    For i:=m downto 2 do
     For j:=2 to i do
      if C[j]>C[j-1] then
      Begin
        t:=C[j];
        C[j]:=C[j-1];
        C[j-1]:=t;
      End;
    writeln('Массив C');
    For i:=1 to k do
     write(C[i]:3);
    readln;
End.


Вернуться к обсуждению:
Найти суму положительных элементов в одномерном масиве Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.12.2012, 09:23
Готовые ответы и решения:

Написать программу расчета Среднего Геометрического(СГ) положительных элементов в одномерном масиве
Написать программу расчета Среднего Геометрического(СГ) положительных элементов в одномерном...

В одномерном массиве из n элементов,найти суму положительных элементов
В одномерном массиве из n элементов,найти суму положительных элементов между первым и последним...

В одномерном масиве найти самую длинную серию одинаковых элементов
ЗАДАЧА С++ ПОМОГИТЕ РЕШИТЬ ПЛИЗ ВОТ ЗАДАНИЕ: 1)ПОДГОТОВИТЬ ТЕКСТОВЫЙ ФАЙЛ С ВХОДНЫМИ ДАНЫМИ В...

В одномерном вещественном масиве x(n) найти наибольшее значение и подсчитать сумму элементов
1. В одномерном вещественном масиве x(n) найти наибольшее значение и подсчитать сумму элементов.

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.12.2012, 09:23

Найти количество положительных и нулевых элементов в масиве
Важно чтобы и в ассемблере был тип BYTE Задание на скриншоте #include "stdafx.h" #include...

Найти непрерывную цепочку положительных элементов в масиве
Помогите написать код. Дан массив X из N целых чисел. Нужно найти самую длинную непрерывную...

Найти суму (произведение) положительных (отрицательных) элементов массива
Найти суму (произведение) положительных (отрицательных) элементов массива

В одномерном масиве, состоящем из n элементов вычислить среднее арифметическое элементов, лежащих в диапазоне значений от a до b.
В одномерном масиве, состоящем из n элементов вычислить среднее арифметическое элементов, лежащих в...

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