1. Запишем в ячейку H2 следующую формулу =ЕСЛИ(A2="СВ";C2;0) и скопируем ее в диапазон H3:H1001. В таком случае, в ячейку столбца Н будет записываться название предмета, если ученик из Северо-Восточного округа и «0», если это не так. Применив операцию =ЕСЛИ(H2="математика";1;0), получим столбец(J) с единицами и нулями. Далее, используем операцию =СУММ(J2:J1001). Получим количество учеников, которые считают своим любимым предметом математику. Таких учеников 17. 2. Для ответа на второй вопрос используем операцию «ЕСЛИ». Запишем в ячейку E2 следующее выражение: =ЕСЛИ(A2="Ю";D2;0), в результате применения данной операции к диапазону ячеек Е2:Е1001, получим столбец, в котором записаны только учеников Южного округа. Просуммировав значения в ячейках, получим сумму учеников: 66 238. Далее посчитаем количество учеников Южного округа с команды =СЧЁТЕСЛИ(A2:A1001;"Ю"), получим: 126. Разделив сумму на количество учеников, получим: 525,70 — искомый средний . 3. В ячейку J2 вставим формулу =СЧЁТЕСЛИ(C2:C1001; "информатика"), в ячейку J3 вставим формулу =СЧЁТЕСЛИ(C2:C1001; "немецкий язык"), в ячейку J4 вставим формулу =СЧЁТЕСЛИ(C2:C1001; "обществознание"). Теперь построим по полученным значениям круговую диаграмму, подпишем сектора. ответ: 1) 17; 2) 525,70.
Сделайте эти действия в прикреплённом файле.
a : array [1..5, 1..5] of integer;
i, j : integer;
begin
randomize;
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
a[i, j] := random (1000);
write (a[i, j], ' ');
end;
writeln;
end;
for i := 1 to 5 do
for j := 1 to 5 do
if i > j then a[i, j] := 1
else if j > i then a[i, j] := 0;
for i := 1 to 5 do
begin
for j := 1 to 5 do
write (a[i, j], ' ');
writeln;
end;
end.
var
a : array [1..4, 1..5] of integer;
i, j, m, c : integer;
begin
randomize;
m := 1000;
for i := 1 to 4 do
begin
for j := 1 to 5 do
begin
a[i, j] := random (1000);
if a[i, j] < m then m := a[i, j];
write (a[i, j], ' ');
end;
writeln;
end;
c := 0;
for i := 1 to 4 do
for j := 1 to 5 do
if a[i, j] = m then
c := c + 1;
writeln (m, ' ', c);
end.
var
a : array [1..4, 1..4] of integer;
i, j, p : integer;
begin
randomize;
for i := 1 to 4 do
begin
for j := 1 to 4 do
begin
a[i, j] := random (10);
write (a[i, j], ' ');
end;
writeln;
end;
p := 1;
for i := 1 to 4 do
begin
if a[i, i] <> 0 then p := p * a[i, i];
if a[i, 5 - i] <> 0 then p := p * a[i, 5 - i];
end;
writeln (p);
end.