Question

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, а если отрицательный - возвести в квадрат

Answer 1

1. В границах массива указан вещественный тип, что неприемлемо. Должны быть указаны верхний и нижний пороги в виде целых чисел. Например [1..25] или [5..100].
2. Таблицу из ноликов 5x5.
3. Сам цикл, остальное сама допишешь :) 
for i := l to n do
if (a[i] mod 5 = 0) and (a[i] mod 3 = 0) then
writeln(i);

4. Тоже самое ;-) 
for i := l to n do
if a[i] <> 0 then
if a[i] > 0 then
a[i] := 1
else
a[i] := sqr(a[i]);