Создайте модуль, в котором описана функция F, вычисляющая сумму всех элементов массива А[20]

@Алина21 · Регистрация: 24.04.2015

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

Создайте модуль, в котором описана функция F, вычисляющая сумму всех элементов массива А[20].

@Puporev · 30.05.2015, 06:26

Текст модуля

Pascal

unit summa;
interface
const n=20;
type mas=array[1..n] of integer;
function F(a:mas):integer;
implementation
function F(a:mas):integer;
var i:byte;
begin
result:=0;
for i:=1 to n do
inc(result,a[i]);
end;
end.

Текст программы

Pascal

uses summa;
var a:mas;
    i:byte;
begin
randomize;
writeln('Массив A');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:3);
 end;
writeln;
writeln('Сумма = ',F(a));
end.

@Алина21 0 / 0 / 0 Регистрация: 24.04.2015 Сообщений: 10
		1
	Создайте модуль, в котором описана функция F, вычисляющая сумму всех элементов массива А[20] 30.05.2015, 05:15. Показов 1312. Ответов 1 Метки нет (Все метки) Создайте модуль, в котором описана функция F, вычисляющая сумму всех элементов массива А[20]. 0

	30.05.2015, 06:26

Создайте модуль, в котором описана функция F, вычисляющая сумму всех элементов массива А[20]

Решение