Срочно, задача ** одномерные массивы (Pascal ABC). Известен рост каждого из 22 учеников...

Question

Срочно, задача на одномерные массивы (Pascal ABC).

Известен рост каждого из 22 учеников класса. Рост мальчиков условно задан отрицательными числами. Определить средний рост мальчиков и средний рост девочек.

Answer 1

Var
ar:array[1.22] of integer;
ds,ms,i,m,d:integer;
begin
for i:=1 to 22 do begin
readln(ar[i]);
if ar[i]<0 then<br>begin
 m:=m+1;
 ms:=ms+ar[i];
end
else
begin
ds:=ds+ar[i];
d:=d+1
end;
end;
ms:=ms div m;
ds:=ds div d;
writeln(ms,' ',ds);
end.

Comments

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

---

ar:array[1.22] of real;

---

ms:=ms / m;

---

ds:=ds / d;

---

writeln(ms:3:2,' ',ds:3:2);