Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Строки. После каждого символа "О" вставлять символ "А" https://www.cyberforum.ru/ pascal/ thread1366664.html
Строки. После каждого символа "О" вставлять символ "А".
Рассчитать суммарный объем лужи, которая образуется благодаря стенкам Pascal
Взгляните на следующую картинку: На этой картинке у нас есть стены различной высоты. Картинка представлена массивом целых чисел, где индекс — это точка на оси X, а значение каждого индекса — это...
В одномерном массиве определить количество положительных элементов (рекурсивно) Pascal
помогите пожалуйста доработать изменить программу. с помощью рекурсивной процедуры В одномерном массиве определить:количество положительных элемен- тов. вот мой код Type mas=array of integer;...
Pascal Напишите программу, которая по данной ситуации определяет, сколько шариков будет сейчас "уничтожено" Всем доброго времени суток! В одной компьютерной игре игрок выставляет в линию шарики разных цветов. Когда образуется непрерывная цепочка из трех и более шариков одного цвета, она удаляется из... https://www.cyberforum.ru/ pascal/ thread1365922.html
Pascal Как поменять местами значения минимумов в массивах? https://www.cyberforum.ru/ pascal/ thread1365901.html
Ребят, очень нужна ваша помощь, надо поменять местами минимумы в 2-х массивах (грубо-говоря из 2-го в первый а из первого во 2-й), всем, кто откликнется, заранее спасибо.
Pascal Проверить баланс открывающихся и закрывающихся скобок
Всем доброй ночи. Не спящие помогите с решением задач. Знаю, что простейшие, но с Паскалем очень и очень сложно. Буду очень благодарен! 4. Вводится строка символов, представляющая из себя...
Удалить из строки первое и последнее слово Pascal
Всем доброй ночи. Не спящие помогите с решением задач. Знаю, что простейшие, но с Паскалем очень и очень сложно. Буду очень благодарен! 3. Вводится строка произвольного текста. Удалить из нее...
Pascal В матрице определить сумму элементов той строки, где расположен максимальный элемент Всем доброй ночи. Не спящие помогите с решением задач. Знаю, что простейшие, но с Паскалем очень и очень сложно. Буду очень благодарен! 2. В матрице размерами N*M (N и M не больше 10) определить... https://www.cyberforum.ru/ pascal/ thread1365730.html
Pascal Сведения о деталях, хранящихся на складе https://www.cyberforum.ru/ pascal/ thread1365478.html
Буду благодарна, если кто-то напишет код. Спасибо тебе заранее,о,великий, добрый человек. Сведения о деталях, хранящихся на складе, содержат следующие атрибуты: название, количество, стоимость...
Pascal Вывести на экран символы данной последовательности в обратном порядке Всем доброго времени суток! Прошу помочь с элементарной задачкой :( Дана последовательность 10 чисел a1, …, a10. Вывести на экран символы данной последовательности в обратном порядке: a10, …,... https://www.cyberforum.ru/ pascal/ thread1364954.html
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,134
02.02.2015, 08:59 0

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

02.02.2015, 08:59. Показов 1095. Ответов 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
const nmax=100;
type mas=array[1..nmax] of integer;
procedure vvod(var a:mas;var n:integer;c:char);
var i:integer;
begin
writeln('Массив ',c);
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
 begin
  a[i]:=-25+random(51);
  write(a[i]:4)
 end;
writeln;
end;
function summa(a:mas;n:integer):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
summa:=s
end;
var a,b:mas;
    n,m:integer;
begin
randomize;
vvod(a,n,'A');
writeln('Сумма положительных=',summa(a,n));
vvod(b,m,'B');
writeln('Сумма положительных=',summa(b,m));
writeln('Сумма положительных в обоих массивах=',summa(a,n)+summa(b,m));
end.


Вернуться к обсуждению:
Найти сумму положительных элементов в двух заданных массивах
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.02.2015, 08:59

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Найти сумму двух наименьших чисел среди элементов двух файлов
Доброго времени суток, помогите с программой: есть два файла в них находятся числа нужно найти...

Найти номера отрицательных элементов и среднеарифметическую сумму положительных элементов
сформировать одномерный массив целых чисел случайным образ n элементов,взятых из промежутка ....

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

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

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