Подскажите синтаксис функций и процедур для работы с массивами

@kolay_ne · Регистрация: 07.03.2016

Author24 — интернет-сервис помощи студентам

Не получается написать функцию/процедуры, которая принимает статический массив (и в случае с функциями возвращает его). В начале объявляется константа "N", которая является правой границей массива - [1..N]. Подскажите синтаксис функций и процедур для работы с массивами (нужны и функции, и процедуры).

@Puporev · 26.10.2016, 15:18

Pascal

const n=10;
type mas=array[1..n] of integer;
function sum(a:mas):integer;
var i:byte;
begin
result:=0;
for i:=1 to n do
result:=result+a[i];
end;
procedure sort(var a:mas);
var i,j:byte;
    x:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
end;
var x:mas;
    i:byte;
begin
writeln('Исходный массив');
for i:=1 to n do
 begin
  x[i]:=-10+random(21);
  write(x[i]:4);
 end;
writeln;
writeln('Сумма=',sum(x));
sort(x);
writeln('Отсортированный массив');
for i:=1 to n do
write(x[i]:4)
end.

@kolay_ne 16 / 18 / 11 Регистрация: 07.03.2016 Сообщений: 362
		1
	Подскажите синтаксис функций и процедур для работы с массивами 26.10.2016, 14:01. Показов 1164. Ответов 1 Метки массив, Процедуры, функции (Все метки) Не получается написать функцию/процедуры, которая принимает статический массив (и в случае с функциями возвращает его). В начале объявляется константа "N", которая является правой границей массива - [1..N]. Подскажите синтаксис функций и процедур для работы с массивами (нужны и функции, и процедуры). 0

	26.10.2016, 15:18

Подскажите синтаксис функций и процедур для работы с массивами

Решение