1) Даны 3 целых числа. Вычислить среднее арифметическое. 2) Вычислить...

Question

1) Даны 3 целых числа. Вычислить среднее арифметическое.

2) Вычислить sin1+sin1.5+...+sin10

3) Найти количество отрицательных элементов массива из 8 целых чисел.

Буду очень благодарен если хотя бы 1-2 задачи решите
Заранее спасибо+)

Comments

какой язык программирования? везде же синтаксис разный

---

Турбо паскаль =)

Answer 1

1) program example 1;
var
x, y,z : integer;
sr_arif : real;
begin
write ( ' введите числа x, y и z ' );
readln (x,y,z);
sr_arif := (x+y+z)/3;
writeln( ' среднее арифметическое чисел x, y и z =' , sr_arif);
end. 

Comments

3) program mas;

---

var

---

program mas;
var
mas:array [1..8] of integer= (3,6,-2,3,-7,8,-1,9);
i:byte;
kol:integer;
begin
for i:=1 to 8 do
begin
if mas[i] < 0 then
kol:=kol+1;
end;
writeln ( 'количество отрицательных чисел =' , kol);
end.