Перегляньте сайт Зелена хвиля . Запишіть у зошит , які елементи сайту відповідають вимогам ергономіки , а які ні

1) Var i:Integer;

A:array[1..10]of integer;

Begin

Write('Введите пять цифр') ;

For i:=1 to 5 do begin

Read(a[i]) ;end;

Write('Кратные двум') ;

For i:=1 to 5 do begin

If a[i] mod 2 =0 then write(' ', a[i]) ;

End;

Write('кратные четырем') ;

For i:=1 to 5 do begin

If a[i] mod 4 =0 then write(' ', a[i]) ;

End;

End.

2)Var a, b, k, i:integer ;

Begin

Write(' a=') ;read(a) ;

Write(' b=') ;read(b) ;

If (a>0)and(b>0) then k:=0;

If (a>0)and(b<0) then k:=abs(b) ;

If (a<0)and(b>0) then k:=abs(a) ;

If (a<0)and(b<0) then k:=abs(a-b) ;

Write('колво отрицательных чисел ', k) ;

End.

Приложил пример работы программы и добавил комментарии к коду.

Листинг:

from random import randint

n = randint(4, 6)

x = 0 # текущие номер элемента х

y = 0 # текущие номер элемента у

d = 0 # Направление перемещения 0 - вправо, 1 - вниз, 2 - влево, 3 - вверх

curr = 1 # номер элемента по порядку

c = n # размер цепочки

arr = [[0 for i in range(n)] for j in range(n)]

print(f"Размерность массива: {n}x{n}")

for i in range(n * n):

   if d == 0:

       arr[x][y] = curr

       y += 1

       curr += 1

       if y == c:

           y -= 1

           d = 1

           x += 1

           continue

   if d == 1:

       arr[x][y] = curr

       x += 1

       curr += 1

       if x == c:

           x -= 1

           d = 2

           y -= 1

           continue

   if d == 2:

       arr[x][y] = curr

       y -= 1

       curr += 1

       if y == n - c - 1:

           y += 1

           d = 3

           x -= 1

           continue

   if d == 3:

       arr[x][y] = curr

       x -= 1

       curr += 1

       if x == n - c:

           x += 1

           y += 1

           d = 0

           c -= 1

           continue

print("Заполненный массив:")

for i in arr:

   print(*i)