👤
a fost răspuns

Se considera tablou liniar B (1..20)
scrieti un program care va determina numerele pare din acest tablou

Răspuns :

Kirilll
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.
Vezi imaginea Kirilll
Vezi imaginea Kirilll

Alte intrebari