1. Составьте программу, которая выводит элементы кратные 5 в одномерном массиве ве Z[13].
2. Составьте программу, которая выводит положительные элементы в одномерном массиве
иве W[18].
3. Составьте программу, которая заменяет элементы кратные 3 в массиве Т[9] формируемых из
(-15; 25) на 0.
1
4. Составьте программу, которая подсчитывает количество элементов больших 1 в массиве D[7].
диапазона​

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.

var a: array[1..10, 1..10] of integer; i, j, s: integer;

begin s : = 0; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(20) + 1; write(a[i, j]: 3); if (j = 2) and (a[i, j] > 10) then s : = s + a[i, j]; end; writeln; end; writeln('сумма элементов 2го столбца больших 10 равна', s); end.

-всех планов

-планов , на которых ровно 4 хода

- планов на которых есть ход к коту

-планов на которых не 4 хода

-планов на которых нет ходов к коту

-планов на которых 4 хода и есть ход к коту

- планов на которых 4 хода и нет ходов к коту

на пересечении круга и квадрата - мауси и котауси

в квадрате - джек

в круге - ник

в прямоугольнике - пухлик

ответ на вопрос: план джека