Const n=5;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do a[i,n-i+1]:=i;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:2);
writeln;
end;
end.
Результат:
0 0 0 0 1
0 0 0 2 0
0 0 3 0 0
0 4 0 0 0
5 0 0 0 0
Объяснение:
1 фото – упрощение.
2 фото – таблица истинности.
• – у меня данный знак не ставится, но выполняет свои действия, у себя его ставьте!
Var i,a:integer;
begin
for i:=1 to 99 do
if i mod 4=0 then a:=a+i;
write (a);
end.
Массив из трех целочисленных элементов