1 задание полностью. Паскаль

Question

1 задание полностью. Паскаль

---

Comments

мне кажется вы не так поняли задание, нужно по этим пунктам написать программу в паскаль

---

в 1.2 каждый пункт это отдельная программа

---

да

---

можно весь пункт 1.2 запихнуть в одну прогу

---

сделайте как вам удобно, не принципиально, но хорошо было бы если пункт 1 цеоиктм ъъъ

---

был целиком одной прогон а пункт 2 целиком другой

Answer 1

Program abc;
uses crt;
var mas: array [1..5] of integer;
sum, i, j: integer;
proiz:longint;
sinys,modyl,modyl2:real;
begin
sum := 0;
proiz := 1;
sinys:= 1;
modyl:=1;
writeln('введите элементы массива');
for i := 1 to 5 do readln(mas[i]);
write('massiv:');
for i := 1 to 5 do
begin
write( mas[i],' ');
sum := sum +mas[i];
proiz := proiz *mas[i];
sinys:= sin(modyl2);
modyl:= abs(mas[i])*modyl;
modyl2:= abs(mas[i])+modyl2;
end;
writeln;
writeln('summa:', sum);
writeln('произведение элементов массива:', proiz);
writeln('sinys raven:',sinys);
writeln('modyl:',modyl);
end.

Comments

Почему только 5 элементов?В пункте в ошибка.

---

напиши в начало const n=свое значение,и в циклах измени 5 на n