Не могу написать программу по функциям в Паскале! - Pascal
Формулировка задачи:
Всем привет! Что-то не могу написать программу по функциям. Посмотрите, вот задание: Вычислить z=S1+S2/2, где S1-сумма положительных элементов массива X(50); S2-сумма отрицательных элементов массива Y(60). Примечание: Обе суммы вычислять одной функцией.
Пожалуйста только не очень "заумно". Заранее большое спасибо!
Решение задачи: «Не могу написать программу по функциям в Паскале!»
textual
Листинг программы
program lalala;
type
mass = array[1..100] of integer;
const
m = 60;
n = 50;
var
x, y: mass;
z: real;
i: integer;
function summa(const a, b: mass): real;
var
k, s1, s2: integer;
begin
s1 := 0;
s2 := 0;
for k := 1 to n do
if a[k] > 0 then
s1 := s1 + a[k];
for k := 1 to m do
if b[k] < 0 then
s2 := s2 + b[k];
write(s1, s2);
summa := (s1 + s2) / 2;
end;
begin
for i := 1 to n do // Заполнение массива X , где n размерность равная 50
read(x[i]);
for i := 1 to m do // Заполнение массива Y , где m размерность равная 60
read(y[i]);
z := summa(x, y);
writeln('z = ', z);
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д