С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Fossil121
0 / 0 / 1
Регистрация: 29.06.2016
Сообщений: 79
1

Процедура с массивом

21.04.2017, 20:18. Просмотров 116. Ответов 1
Метки нет (Все метки)

Задача:Даны 3 различных массива целых чисел (размер каждого 15 элементов). В каждом массиве найти сумму элементов и среднее арифметическое значение.
Для формирования элементов массива и подсчета суммы и среднего арифметического использовать одну процедуру (среднее арифметическое и сумму оформить как параметры-переменные).
У меня в 7 строке программа показывает ошибку:"Тип параметра или возвращаемого значения не может быть описанием записи или описанием массива с границами". Помогите, пожалуйста, исправить.
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
const 
  n = 15;
var
  a, b, c:array[1..n] of integer;
  x, y:integer;
  
procedure Mass(j:integer; arr:array[1..n] of integer; var sr:real; var sum:integer);
var 
  i, k:byte;
begin
  for i := 1 to j do
  begin
    arr[i] := Random(33);
    write(arr[i]:4);
    sum += arr[i];
    Inc(k);
  end;
  sr := sum/k;
  write('Среднее арифметическое элементов массива: ', sr);
  write('Сумма элементов массива: ', sum);
end;
 
begin
  Mass(n,a,x,y);
  Mass(n,b,x,y);
  Mass(n,c,x,y);
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.04.2017, 20:18
Ответы с готовыми решениями:

С массивом
Вот, помогите, пожалуйста! !!Задаются 2 последовательности из 10 символов, первая-прописная...

работа с массивом
Дано 2 массива А(8) и В(8), которые упорядочены по возрастанию. Вычислить количество элементов,...

Действия с массивом
Дан массив M = }, i=1,10; j=1,10 ]. (элементы выбираются случайным образом): 1. Вывести на...

Задача с массивом
Вычислить значение Z по заданному массиву q(n,n),n≤15 и массиву x(n),Z=max(i=1,n)∑(отjдоn=1) q(ij)...

Программа с массивом
Здравствуйте, подскажите, пожалуйста, с задачей. Условие. Дан одномерный массив В элементы...

1
Hitoku
Модератор
1705 / 1304 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
21.04.2017, 20:31 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
const 
  n = 15;
type mas = array[1..n] of integer;
var
  a, b, c:mas;
  x, y:integer;
  
procedure Mass(arr:mas);
var 
  i, k:byte;
  sr:real;
  sum:integer;
begin
  sum:=0;
  for i := 1 to n do
  begin
    arr[i] := Random(33);
    write(arr[i]:4);
    sum += arr[i];
  end;
  writeln;
  sr := sum/n;
  writeln('Среднее арифметическое элементов массива: ', sr);
  writeln('Сумма элементов массива: ', sum);
end;
 
begin
  Mass(a);
  Mass(b);
  Mass(c);
end.
Добавлено через 4 минуты
В PABC.Net можно сделать попроще
Pascal
1
2
3
4
5
6
7
8
9
10
const n=15;
procedure mass(var a:array of integer);
begin
  a:=Range(0,n-1).Select(v -> Random(33)).Println(' ').ToArray;
  writeln('Сумма элементов: ', a.Sum, NewLine, 'Среднее арифметическое: ', a.Average, NewLine);
end;
var a,b,c:array of integer;
begin
  mass(a); mass(b); mass(c);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.04.2017, 20:31

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

Работа с массивом.
найти количество элементов мвссива, которые больше 50. sos!!!! удалить из массива заданный...

Проблема с массивом
Привет, товарищи помогите пожалуйста с такой проблемой, вот сама проблема: Дана действительная...


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

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

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