Заполнить двумерный массив n x n случайными числами из интервала [-10; 10] и найти минимальный элемент лежащий на главной диагонали.

Сначала стоит немного подумать над , а не писать "в лоб". если число кратно 2 и одновременно 3, то оно кратно и их произведению, т.е. 2 х 3 = 6. ближайшее число, превышающее 10 и кратное 6 - это 12. начинаем от него и идем с шагом 6, пока не превысим 99. 1. так можно решить по-современному: // pascalabc.net 3.1, сборка 1190 от 05.03.2016 begin   writeln('искомая сумма равна ',range(12,99,6).sum) end. результат выполнения программы искомая сумма равна 810 2. а так - "по-школьному": // pascalabc.net 3.1, сборка 1190 от 05.03.2016 var   i,s: integer; begin   i: =12;   s: =0;   while i< =99 do begin       s: =s+i;       i: =i+6       end;   writeln('искомая сумма равна ',s) end.

Взапись student добавляете новое поле kurs, type student = recordlastname: string ;   bal: array [1..5] of integer;   kurs: integer; average: real  end; в цикле по студентам добавляете ввод курса with pupil[i] do begin write ('введите фамилию студента №', i ,': ');   readln (lastname);   write('введите курс '); readln(kurs); в конце программы изменяете вывод writeln ( 'студенты первокурсники, имеющие средний больший или равный 4'); for i: =1 to n do beginif (pupil[i].average > =4) and (pupil[i].kurs = 1) then  write (pupil[i].lastname,',  ');