Постройте в тетради таблицу, заполните пустые (незакрашенные) ячейки и запомните её. Заполненную таблицу прикрепите к ответу.

а)сумм(a5: b7)

б)срзнач(c4: c7)

1)false (т.к. x> y)

2)true (x< y,x не равен y)

3)false(x> y)

4)true(т.к. x=y, x не равен y)

егора-зеленая на 16гб

василий-желтую на 8гб

пети-краснаяна 4гб

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.