Se considera tablou liniar B (1..20)
scrieti un program care va determina numerele pare din acest tablou
Kirilll:
Pascal?
Da
Răspunsuri la întrebare
Răspuns de
1
program Pare;
var
B: array [1..20] of integer;
i: integer;
begin
for i := 1 to 20 do
readln(B[i]);
writeln();
for i := 1 to 20 do
if B[i] mod 2 = 0 then
writeln(B[i]);
end.
var
B: array [1..20] of integer;
i: integer;
begin
for i := 1 to 20 do
readln(B[i]);
writeln();
for i := 1 to 20 do
if B[i] mod 2 = 0 then
writeln(B[i]);
end.
Anexe:
Alte întrebări interesante
Geografie,
8 ani în urmă
Matematică,
8 ani în urmă
Limba română,
9 ani în urmă
Ed. muzicală,
9 ani în urmă
Matematică,
9 ani în urmă
Arte,
9 ani în urmă