Question

Tablica która wyświetla liczby parzyste , póki co mam tablice z liczbami 0 i 1 oto tablica. Liczby parzyste mają być jak to zrobić?

program tab;
var
tablica:array[1..10,1..10] of integer;
j,i:integer;
Begin
for i:=1 to 10 do
for j:=1 to 10 do

begin
if (j=i) then
tablica[j,i]:=0
else
tablica[j,i]:=1
end;

for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
write(tablica[j,i]);
end;
writeln();
end;
readln;
end.

Answer 1

Nie umiem pascala  (to Ci nie dam gotowca w Twoim kodzie ) ale liczby parzyste robisz tak że w pętli dajesz if (tablica[i]%2 == 0) wyświetlenie elementów parzystych . tylko Ty masz tablicę dwuwymiarową więc dajesz

 

if (tablica[i,j]% == 0) wyświetlenie