функция нахождения суммы элементов целочисленного вектора

@Ислам32 · Регистрация: 16.05.2011

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

Используя функцию, найти сумму элементов целочисленного вектора X(15), величина которых лежит в промежутке от 10 до 50.

@Puporev · 30.06.2011, 12:47

Pascal

uses crt;
const n=15;
type mas=array[1..n] of integer;
function Summa(a:mas):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to n do
if a[i] in [10..50] then s:=s+a[i];
Summa:=s;
end;
var x:mas;
    i:integer;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  x[i]:=random(60)-20;
  write(x[i]:4);
 end;
writeln;
write('Сумма элементов  от 10 до 50 = ',Summa(x));
readln
end.

@Ислам32 0 / 0 / 0 Регистрация: 16.05.2011 Сообщений: 24
		1
	функция нахождения суммы элементов целочисленного вектора 30.06.2011, 12:39. Показов 1330. Ответов 1 Метки нет (Все метки) Используя функцию, найти сумму элементов целочисленного вектора X(15), величина которых лежит в промежутке от 10 до 50. 0

Опции темы

функция нахождения суммы элементов целочисленного вектора

Решение