Написать программу заполнения двумерного массива (7х7) 1 2 3 4 5 6 7 7 6 5 4 3 2 1 1 2 3 4 5 6 7 7 6 5 4 3 2 и т.д.

Прилагаю файл программы

Достаточно длинный? ) var a: array [0..30] of integer;     i, o: integer;     s: string; begin       for i : = 1 to 30 do       begin           a[i] : = random(6) - 3;       end;       writeln('массив: ');       for i : = 0 to 30 do       begin           writeln('[', i, '] => ', a[i]);           if (a[i] > 0) then           begin               o : = o + a[i];               s : = s + inttostr(i) + ' ';           end;       end;       writeln('номера положительных чисел: ', s); end.

2. 52 div 8 = 6 целое 2+6=8 целое √8≈2.828 вещественное trunc(2.828)=2 целое 15 mod 4=3 целое 3/3=1 целое 2-1=1 целое ответ: 1, тип целое 3. максимальное значение integer в языке паскаль зависит от реализации. стандарт языка определяет, что под переменную типа integer необходимо отвести объем памяти, достаточный для хранения значения 32767, т.е. в связи с этим в ранних реализациях паскаля под переменные типа integer отводилось 2 байта памяти. в современных реализациях под переменные этого типа отводится 4 байта, поэтому максимальное значение integer может достигать или 2147483647.4. если надо сохранить целое число, большее в 10 раз максимального значения integer, то нужно для поинтересоваться а) сколько байт отводится под integer? б) есть ли в данной реализации паскаля целые числа, под хранение которых отводится большее число байт? когда integer двухбайтовое, следует использовать четырехбайтное longint, а когда четырехбайтное - поинтересоваться наличием восьмибайтного типа int64.