Школа состав(что еще есть? )действия(что еще можно делать? )

состав школы кабинеты, коридоры, лкна, двери и т.д

действие: ходить в школу уходить из школьны учится в школе и т.д

random верный и не надо со мной спорить! там четко написано максимальное значение 45, минимальное значение 0-15=- 

на счет второго замечания, я то согласен, но разницы и тем более ошибки из-за которой стоит поднимать панику  

если человек. кторый пишет здесь такое простое задние не в состоянии самостоятельно его решить это значит одно, что если его решение будет сложным, значит это не он сам

program w; var a: array [1..20] of integer; i,j: integer;

begin

j: =0; for i: =1 to 20 do begina[i]: =random(60)-15; if a[i] mod 2 =0 then inc(j); end;

write(j); end.

uses crt; vara: array[1..7,1..10] of integer; b,i,j: integer; beginclrscr; randomize();

//заполнение массива случайными числами

for i: =1 to 7 dofor j: =1 to 10 dobegina[i,j]: =random(10); end;

//вывод массива

for i: =1 to 7 dobeginfor j: =1 to 10 dowrite(a[i,j]: 3,' '); writeln(); writeln(); end;

//удаляем строку 6 и меняем 5 и 2 строки местами

for j: =1 to 10 dobegina[6,j]: =a[7,j]; a[7,j]: =0; b: =a[5,j]; a[5,j]: =a[2,j]; a[2,j]: =b; end; writeln('отредактированный массив'); //выводим отредактированный массивfor i: =1 to 6 dobeginfor j: =1 to 10 dowrite(a[i,j]: 3,' '); writeln(); writeln(); end; readln(); end.