Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 06.12.2014
Сообщений: 48
1

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

02.02.2015, 01:49. Просмотров 1085. Ответов 2
Метки нет (Все метки)


Написать программу : для ввода массива использовать процедуру, а для поиска элементов - функцию. Даны два массива A[1..n] и B[1..m]. Найти сумму положительных элементов в обоих массивах
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.02.2015, 01:49
Ответы с готовыми решениями:

В массивах G(8), K(19) определить кол-во и произведение элементов меньших 26 в двух заданных массивах (6;34)
Задать два одномерных массива значений, чтобы величины элементов массивов попадали в заданный...

Функции. Количество положительных элементов в двух заданных строках матрицы
Количество положительных элементов в двух заданных строках матрицы А.

В произвольно заданных двух одномерных массивах определить максимальные элементы и поменять их местами
В произвольно заданных двух одномерных массивах определить максимальные элементы и поменять их...

Массив: Найти сумму отрицательных и сумму положительных элементов и сравнить их по модулю.
1) Дан одномерный массив, который содержит не более 50 целых чисел. Найти сумму отрицательных и...

2
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
02.02.2015, 08:51 2
Лучший ответ Сообщение было отмечено Snord как решение

Решение

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
const n=10;m=8;
type mas=array[1..n] of integer;
var a,b:mas;
    i,s:integer;
procedure vv(var x:mas;n1:integer;f:boolean);
var i:integer;
begin
 for i:=1 to n1 do
  begin
   if f then x[i]:=-10+random(21);
   write(x[i],' ')
  end;
 writeln
end;
function sum(x:mas;n1:integer):integer;
var i,su:integer;
begin
 su:=0;
 for i:=1 to n1 do
  if x[i]>0 then su:=su+x[i];
 sum:=su;
end;
begin
 randomize;
 writeln('A:');
 vv(a,n,true);
 writeln('B:');
 vv(b,m,true);
 s:=sum(a,n)+sum(b,m);
 writeln('summa = ',s)
end.
0
Модератор
62924 / 46946 / 32353
Регистрация: 18.05.2008
Сообщений: 113,762
02.02.2015, 08:59 3
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 элементов,взятых из промежутка ....

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

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


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

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

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