Написать программу в паскале мясокомбинат получал 6 дней мясо. определить среднее...

Question

Написать программу в паскале мясокомбинат получал 6 дней мясо. определить среднее арифметическое количества мяса полученного за эти дни и найти количество дней когда мясокомбинат получал мяса меньше среднего арефметического

Comments

ну помогите

---

написать программу в паскале задан массив В(15). найти сумму элементов больших 0

Answer 1

Program pr; var a:array[1..6]of real; i,kol:integer; sr_ar:real; begin for i:=1 to 6  do begin readln(a[i]); sr_ar:=sr_ar+a[i]; end; sr_ar:=sr_ar/6; writeln(sr_ar); for i:=1 to 6 do begin if(a[i]end.
держи, п.с. везет вам, проги на дом писать задают), у нас практической части почти нет(
удачи!

Comments

а это сможешь?

---

легко, сейчас напишу

---

program pr;
var
b:array[1..15]of real;
i:integer;
sum:real;
begin
for i:=1 to 15 do
begin
readln(b[i]);
if (b[i]>0) then sum:=sum+b[i];
end;
writeln(sum);
end.

---

че сложно?

---

написала же решение

---

Не пользуйтесь Г у г л ь Хром, когда вставляете тексты из редактора Паскаля - он строки сливает.

---

Это чтобы ответ меньше места занимал, но спасибо за информаию

---

сможешь помочь

---

написать двумерный массив. найдите среднее арифметическое элементов массива заданных случайным образом [0..20]

---

Вы нарушаете правила пользования сервисом. В комментариях можно писать только то, что относится к заданию.