Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
polika
0 / 0 / 0
Регистрация: 04.04.2015
Сообщений: 3
1

Определить общее количество положительных элементов в трех массивах

12.05.2015, 12:26. Просмотров 855. Ответов 1
Метки нет (Все метки)

Даны три массива разной размерности. Определить общее количество положительных элементов в трех массивах. Помогите решить, пожалуйста. И с комментариями
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2015, 12:26
Ответы с готовыми решениями:

Найти общую сумму положительных и кратных 5 элементов в трех массивах
Программа с функциями и процедурами Даны три массива A, B, C. Найти общую...

Определить число положительных элементов до первого отрицательного в массивах
Помогите решить задание. Определить число положительных элементов до первого...

Определить число положительных элементов до первого отрицательного в массивах
Выполнить программу, использующую подпрограмму - процедуру.6. Определить число...

Определить число положительных элементов до первого отрицательного в массивах
Помогите решить задание с помощью процедур и функции.(массивы) Определить...

В трех массивах хранится информация о температурах трех зимних месяцев(А - декабрь, В - январь, С - февраль). Определить среднюю температуру зимой.
заранее спасибо)

1
Joy
Эксперт Pascal/Delphi
2163 / 1194 / 1434
Регистрация: 29.08.2014
Сообщений: 4,373
12.05.2015, 13:33 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
var
  a:array[1..5] of integer; {первый массив}
  b:array[1..10] of integer;{второй массив}
  c:array[1..15] of integer;{третий массив}
procedure print(a:array of integer;s:string);{процедура печати массива}
var
  i:integer;
begin
  writeln(s);
  write('[');
  for i:=low(a) to high(a)-1 do write(a[i],',');
  writeln(a[high(a)],']');
end;
procedure genrnd(var a:array of integer;a1,a2:integer);{заполнение массива случайными числами}
var
  i:integer;
begin
  for i:=low(a) to high(a) do a[i]:=random(a2+abs(a1))+a1;
end;
function calcp(a:array of integer):integer;{подсчет положительных элементов массива}
var
  i,j:integer;
begin
  j:=0;
  for i:=low(a) to high(a) do if a[i]>0 then j:=j+1;
  calcp:=j;
end;
begin
  randomize;
  genrnd(a,-50,50);print(a,'A:');
  genrnd(b,-100,100);print(b,'B:');
  genrnd(c,-15,20);print(c,'C:');
  writeln('Число элементов больших 0 равно ',calcp(a)+calcp(b)+calcp(c));
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2015, 13:33

Определить количество элементов в массивах, попадающих в интервал [-2,6]
Пожалуста нужна ваша помощь,помогите решить задачу 1)определите количество...

Функции. Найти среднее арифметическое всех элементов с четными номерами и количество нулевых элементов в трех массивах.
Заданы три одномерных массива R, U, W. Количество элементов каждого массива не...

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


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

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

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