Вопрос по информатике:
Найти сумму положительных элементов в массиве. Использовать процедуру для ввода элементов массива и функцию для подсчета суммы. (решить в паскале)
Пожаловаться
- 04.03.2018 10:46
- Информатика
- remove_red_eye 19514
- thumb_up 34
Ответы и объяснения 1
Const n=20;
type ar=array[1..n] of integer;
procedure p1(var a:ar);
var i:integer;
begin
for i:=1 to n do begin
a[i]:=random(11)-5;
write(a[i],' ');
end;
writeln;
end;
function sum(var a:ar):integer;
var s,i:integer;
begin
s:=0;
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
sum:=s;
end;
var a:ar; p:real;
begin
Randomize;
p1(a);
writeln('s = ',sum(a));
end.
Пример:
2 -4 -1 3 -2 -5 -1 5 -5 2 -1 3 3 -4 0 4 2 -1 -4 -4
s = 24
type ar=array[1..n] of integer;
procedure p1(var a:ar);
var i:integer;
begin
for i:=1 to n do begin
a[i]:=random(11)-5;
write(a[i],' ');
end;
writeln;
end;
function sum(var a:ar):integer;
var s,i:integer;
begin
s:=0;
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
sum:=s;
end;
var a:ar; p:real;
begin
Randomize;
p1(a);
writeln('s = ',sum(a));
end.
Пример:
2 -4 -1 3 -2 -5 -1 5 -5 2 -1 3 3 -4 0 4 2 -1 -4 -4
s = 24
Пожаловаться
- 05.03.2018 21:27
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы