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]);

Answer 2

Спасибо)