1. Указать оплошности в описании массива и пути их исправления:  

1. Указать ошибки в описании массива и пути их исправления: var a:array[real] of integer;
2. Найти,что распечатает последующая программка:
var a: array[1..5,1..5]of integer,i,j; integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if i=5-j+1 then a[i,j]:=0
else a [i,j]:=0;
write(a[i,j]:2);
end;
writeln;
end; end.
3. Дан линейный массив a [l..n], содержащий целые числа. Вычислить сумму чисел делящихся одновременно на 5 и на 3 и распечатать номера таких чисел
4.Дан линейный массив a [l..n], содержащий целые числа. Преобразовать элементы массива по последующему правилу : если элемент положительный,то поменять его на 1, а если отрицательный - возвести в квадрат