В таблице Dat хранятся данные о численности учеников в классах (Dat[1] – число учеников в первом классе, Dat[2] – во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.
Целтаб Dat [1:11]
цел k, m
Dat[1] := 21; Dat[2] := 23
Dat[3] := 20; Dat[4] := 19
Dat[5] := 25; Dat[6] := 22
Dat[7] := 23; Dat[8] := 21
Dat[9] := 22; Dat[10] := 29
Dat[11] := 17
m := 0
нц для k от 1 до 11
если Dat[k] > 22 то
ш := ш + 1
все
кц
вывод ш
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
begin
readln(a[i]);
//если ввели положительное число,увеличим перем. otr на 1
if a[i] < 0 then
inc(otr);
//если ввели отрицательное число,увеличим перем. k на 1
//и к переменной m прибавим элемент
if a[i] > 0 then
begin
inc(k);
inc(m, a[i]);
end;
end;
//заполним массив d
for i:=1 to l do
//если индекс четный, присвоим элементу otr
//иначе присвоим среднее арифметическое
if i mod 2 = 0 then
d[i] := otr
else
d[i] := m/k;
end.
Программа
var
A: array[1..8] of integer;
B: array[1..8] of integer;
i: integer;
begin
Writeln('Заполните массив ');
for i:=1 to 8 do
begin
Read(A[i]);
if odd(A[i]) then //* смотри примечание после кода
B[i]:=A[i]
end;
Writeln('Нечётные числа массива ');
for i:=1 to 8 do
begin
if B[i]>0 then
Write(B[i],' ');
end;
end.
Прим.: *odd - функция, которая определяется чётность элемента. Если элемент нечётный, то функция возвращает значение true, в противном случае - false
Тестовый ввод программы показан в приложении к решению