Дан вектор F(11) определить количество нечетных элементов и умножить на него первый четный элемент. В паскале
Дан вектор F(11) определить количество нечетных элементов и умножить на него первый четный элемент.
В паскале
Гость
Ответ(ы) на вопрос:
Гостьuses Crt;
const n=11;
type Vec=array [1..n] of integer;
var F: Vec;
i, Col, el,Rez: integer;
flag: boolean;
begin
for i:=1 to n do
begin
F[i]:=10+random(90);
if (F[i] mod 2 <>0) then Col:=Col+1;
end;
flag:=false;
for i:=1 to n do
if (F[i] mod 2 = 0) then
begin
flag:=true;
el:=F[i];
exit;
end;
Rez:=Col*el;
Writeln(' Rez = ', Rez);
ReadLn;
end.
Не нашли ответ?
Похожие вопросы