Program test;
var
a:array[1..4,1..6] of integer;
b:array[1..4] of integer;
i,i1,max,n,sum:integer;
label m1;
begin
write('Введите елементы массива: ');
for i:=1 to 4 do begin
for i1:=1 to 6 do begin
write('a[',i,',',i1,'] = ');
readln(a[i,i1]);
end;
end;
for i:=1 to 4 do begin
for i1:=1 to 6 do begin
if i+i1 = 2 then max:=a[1,1]
else if a[i,i1]>max then max:=a[i,i1] else max:=max;
end;
end;
m1:
write('Введите число (не больше ',max,') : ');
readln(n);
if n<=max then begin
for i:=1 to 4 do begin
for i1:=1 to 6 do begin
if a[i,i1]>n then sum:=sum+1;
end;
b[i]:=sum;
writeln('b[',i,'] = ',b[i]);
sum:=0;
end;
end
else begin
writeln('Число больше максимального значения массива, поробуйте снова');
goto m1;
end;
end.
В классе 20 учеников, из них получили (за четверть или за контрольную - не важно) :
"5" - 3
"4" - 7
"3" - 8
"2" - 1
н/а - 1
(3+7+8)/20*100=90%
..согласно последним веяниям в образовании, двоечников и неаттестованных быть не должно, т. е. , успеваемость должна составлять 100%
Качество - это отношение количества учеников, успевающих на 4 и 5 к количеству успевающих учеников. В нашем примере
(3+7)/18*100=55,6%
var
a,n,min:integer;
begin
readln(a);
n:=1;
min:=100;
if (a mod 3 <>0) or (a=0) then
begin
writeln('Net par');
exit;
end
else
begin
n:=a;
repeat
readln(a);
if a mod 3 <> 0 then break;
n:=n*a;
if (n<min) then min:=n;
n:=a;
until (a mod 3 <> 0) or (a=0);
end;
writeln;
if min = 100 then writeln('Net par') else
writeln(Min);
end.
20 символов, тк если 40 разделить на 2 будет 20