Var
a: array of integer;
i, N, prod: integer;
flag: boolean;
begin
prod := 1; flag := False;
write('Введите N -> ');
readln(N);
SetLength(a, N);
for i:=0 to High(a) do begin
A[i] := random(10)-5;
write(A[i], ' ');
if (abs(A[i] mod 2) = 1) then
prod *= A[i];
flag := True;
end;
writeln();
if (flag) then
writeln('Произведение нечетных элементов: ', prod, '.')
else
writeln('В массиве нет нечетных элементов.');
end.
Программа написана на языке Pascal
Число от 2-х до 3-х не включая их.
Примеры:
2.4
2.000000000001
2.99999999999
2.44432432412423
и т.п.
Так как число ребят, имеющих «тройки» по математике и физике, равно 7, то число учеников, имеющих только две «тройки» - по математике и по физике, равно 7-5=2. Тогда 17-4-5-2=6 учеников имеют две «тройки» - по математике и по русскому языку, а 22-5-2-11=4 ученика только две «тройки» - по физике и по русскому языку. В этом случае без «тройки» учится 40-22-4-6-4=4 ученика. А имеют «тройки» по двум предметам из трех 6+2+4=12 человек.
Ширифты текста / размер текста