Ответы
Ответ дал:
0
const N=10;
var
i,ch:integer;
A:array [1..n] of integer;
Begin
For i:=1 to N do BEGIN
A[i]:=Random(99)+1;
Write(A[i],' ');
END;
Write('Нечетные: ');
For i:=1 to N do BEGIN
if (A[i] mod 2 = 1) and (i mod 2 = 0) then Write(i, '. ', A[i],' ');
END;
WRITELN;
End.
Вроде так!
var
i,ch:integer;
A:array [1..n] of integer;
Begin
For i:=1 to N do BEGIN
A[i]:=Random(99)+1;
Write(A[i],' ');
END;
Write('Нечетные: ');
For i:=1 to N do BEGIN
if (A[i] mod 2 = 1) and (i mod 2 = 0) then Write(i, '. ', A[i],' ');
END;
WRITELN;
End.
Вроде так!
Ответ дал:
0
var a:array[1..24] of integer; k,i:integer;
begin
k:=0;
for i:=1 to 24 do read(a[i]);
for i:=1 to 24 do if (a[i]>0) and (a[i] mod 2=0) then k:=k+1;
write(k)
end.
begin
k:=0;
for i:=1 to 24 do read(a[i]);
for i:=1 to 24 do if (a[i]>0) and (a[i] mod 2=0) then k:=k+1;
write(k)
end.
Ответ дал:
0
Так попробуй тоже
Похожие вопросы
2 года назад
2 года назад
10 лет назад
10 лет назад
10 лет назад