Регистрация
cbnybrjds
25.09.2020 09:39
Информатика
Есть ответ 👍

На одномерные массивы (pascal abc). известен рост каждого из 22 учеников класса. рост мальчиков условно задан отрицательными числами. определить средний рост мальчиков и средний рост девочек.

137
388
Посмотреть ответы 2

Ответы на вопрос:

wwwrlfoto
wwwrlfoto
4,6(55 оценок)
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 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.
ilya482
ilya482
4,6(73 оценок)
// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(15,-20,20); a.println;   a.transform(t-> t mod 5=0? 2*t: t div 2); a.println end. пример -3 -11 19 1 6 -6 -14 1 -18 -10 -19 6 -1 -13 -2 -1 -5 9 0 3 -3 -7 0 -9 -20 -9 3 0 -6 -1

Популярно: Информатика