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

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

Var     sequenceresult: real;     i: integer; begin     randomize;         sequenceresult : = 1;         for i : = 1 to 10 do         sequenceresult : = sequenceresult * (random(20) + 1);         //writeln('произведение 10 случайных чисел от 1 до 20 равно ', sequenceresult); end.

если вам требуется вывести произведение, уберите // на 12 строке перед записью writeln('');

допустим, что первый болельщик был прав в том, что наташа займет 1 место. следовательно, она не может занять второе место, из чего в свою очередь следует, что третий болельщик не был прав в том, что наташа займет второе место, значит, он был прав в том, что рита займет третье место. аналогично, рита не может занять четвертое место, так как предположительно она на третьем, значит второй болельщик был прав в том, что люда займет второе место. остается маша - четвертое место. все болельщики правы лишь в одном из своих прогнозов, условие выполняется. следовательно ответ: 1 место - наташа, 2 место - люда, 3 место - рита и 4 место - маша