Создаем матрицу, оценки вводятся с клавиатуры и считается количество оценок, которые <=2 в каждой строке. Последний столбец показывает количество неуд. по каждому предмету. в каждой строке 6 студентов, в конце каждой строки количество неуд по этому предмету
DIM a(4,6)
PRINT "input ocenki"
FOR i = 1 TO 4
FOR j = 1 TO 6
INPUT a(i, j)
NEXT j
NEXT i
FOR i = 1 TO 4
k = 0
FOR j = 1 TO 6
PRINT a(i, j);
IF a(i, j) <= 2 THEN k = k + 1
NEXT j
PRINT k
NEXT i<span>
</span>
Var
r, v: real;
i: integer;
begin
v := 0;
r := 0.5; {радиус в дм, т.к. литр - это куб.дм.}
for i := 1 to 12 do
begin
v := v + 4 * Pi / 3 * sqr(r) * r;
r := r + 0.05
end;
Writeln('Суммарный объем равен ', v:0:3, ' л.')
end.
Тестовое решение:
Суммарный объем равен 26.879 л.
Сначала двигаешься в право потом на верх(ученье лучше богатства)
===== PascalABC.NET =====
begin
var n := ReadInteger('Укажи длину массива:');
var a := ArrRandom(n, -5, 5);
var k := a.Println.Count(p -> p = 2);
if k = 0 then
Print('Нет элементов, равных 2')
else
Print('Число элементов, равных 2:', k)
end.