Вопрос по информатике:
Составишь программу на языке посталь
А) вычислить сумму модулей элементов массива X(15). Б) выселить произведение модулей элементов массива B(15)
Помогите пожалуйста
- 26.08.2018 12:22
- Информатика
- remove_red_eye 15804
- thumb_up 15
Ответы и объяснения 1
А)var
ar:array[1..15] of integer;
s,i:integer;
begin;
for i:=1 to 15 do
begin;
readln(ar[i]);
s:=s+abs(ar[i]);
end;
write(s);
end.
б)var
ar:array[1..15] of integer;
s,i:integer;
begin;
s:=1;
for i:=1 to 15 do
begin;
readln(ar[i]);
s:=s*abs(ar[i]);
end;
write(s);
end.
- 27.08.2018 18:43
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.