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

Одномерные массивыПодпрограммы.Необходимо сделать через Procedure

06.02.2012, 20:40. Просмотров 877. Ответов 1
Метки нет (Все метки)

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

Одномерные массивыПодпрограммы.Необходимо сделать через Procedure
Даны два одномерных массива произвольных чисел. Определить в каком из них...

Одномерные массивыПодпрограммы.
Даны два одномерных массива произвольных чисел. Определить в каком из них...

Найти первый положительный элемент в массиве через procedure
Что есть Procedure Rachet????

Прошу вас написать программу на Паскале. Через function или procedure
Даны две последовательности:С1,С2...,С10 ;Р1,P2...,P10.Если наибольший элемент...

Необходимо сделать срочто и в подробностях...
Составте программу, которая запрашивает значенияэлементов одномерного числового...

1
Ev[G]eN
iOS/Android Developer
Эксперт С++
5119 / 1557 / 950
Регистрация: 23.01.2011
Сообщений: 3,187
Завершенные тесты: 1
06.02.2012, 23:54 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
const
 n = 15;
type
 TArr = array[1..n] of integer;
var
 arrA, arrB: TArr;
 sr1, sr2: real;
 i, j: integer;
 
procedure SredPos(arr: TArr; var sr: real);
var
 i, sum: integer;
begin
 sum:=0; 
  for i:=1 to n do
   if arr[i] > 0 then inc(sum, arr[i]);
 sr:=sum / n;
 writeln(sr:2:2);
end;
 
begin
 randomize;
 writeln('Массив А: ');
  for i:=1 to n do
   begin
    arrA[i]:=random(20)-3;
    write(arrA[i], ' ');
   end;
 writeln;
 writeln('Среднее арифметическое его положительных элементов: ');
 SredPos(arrA, sr1);
 writeln('Массив B: ');
  for j:=1 to n do
   begin
    arrB[j]:=random(20)-3;
    write(arrB[j], ' ');
   end;
 writeln;
 writeln('Среднее арифметическое его положительных элементов: ');
 SredPos(arrB, sr2);
  if sr1 > sr2 then write(sr1:2:2, ' > ', sr2:2:2)
   else if sr1 < sr2 then write(sr1:2:2, ' < ', sr2:2:2)
    else write(sr1:2:2, ' = ', sr2:2:2);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.02.2012, 23:54

расчитать время через которое необходимо выпустить снаряд
расчитать время через которое необходимо выпустить снаряд (под углом) чтоб...

Дана матрица а(n.n)необходимо найти все элеементы ,которые больше 0 и сделать их равными -1.: program pr1;
Дана матрица а(n.n)необходимо найти все элеементы ,которые больше 0 и сделать...

Определить минимальное количество операций необходимо для того, чтобы сделать число a равным числу b
Помогите пож-ста срочно


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

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

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