Я уже сделал на паскале Ладно пусть будет... var a: array[1..10] of integer; i,j,k,sum,d:integer; h:real; begin d:=0; for i:=1 to 10 do for j:=1 to 5 do begin readln(a[j]); if j=5 then begin sum:=0; for k:=1 to 5 do sum:=sum+a[j]; h:=sum/5; writeln(h:0:0); // Если нужно точное значение, поменяйте последний 0 на 2 if h<7 then inc(d) end; end; write(d, ' учеников - имеют средний ниже среднего'); end.
begin Randomize; Writeln('Исходный массив'); min:=32767; for i := 1 to n do begin a[i] := Random(99)+1; Write(a[i]:3); if ((a[i] mod 2)<>0) and (min>a[i]) then min:=a[i] end; Writeln; Writeln('Минимальный нечетный элемент равен ',min) end.
Ладно пусть будет...
var
a: array[1..10] of integer;
i,j,k,sum,d:integer;
h:real;
begin
d:=0;
for i:=1 to 10 do
for j:=1 to 5 do
begin
readln(a[j]);
if j=5 then
begin
sum:=0;
for k:=1 to 5 do
sum:=sum+a[j];
h:=sum/5;
writeln(h:0:0); // Если нужно точное значение, поменяйте последний 0 на 2
if h<7 then inc(d)
end;
end;
write(d, ' учеников - имеют средний ниже среднего');
end.
Эксель скинул
n = 50;
var
a: array[1..n] of integer;
i, min: integer;
begin
Randomize;
Writeln('Исходный массив');
min:=32767;
for i := 1 to n do
begin
a[i] := Random(99)+1;
Write(a[i]:3);
if ((a[i] mod 2)<>0) and (min>a[i]) then min:=a[i]
end;
Writeln;
Writeln('Минимальный нечетный элемент равен ',min)
end.
Тестовое решение:
Исходный массив
24 19 87 17 11 98 74 11 57 42 9 23 3 90 62 61 53 55 63 93 22 50 82 97 26 39 43 26 46 52 13 94 26 98 87 95 43 69 24 41 56 78 22 45 53 45 59 57 3 64
Минимальный нечетный элемент равен 3