11. прочитайте ниже текст: у сидорова по музыке «4», у кузьмина по чтению «5», у иванова по труду «5», у кузьмина по музыке «5», у сидорова по чтению «3», у иванова по музыке «4», у кузьмина по труду «5», у сидорова по труду «4», у иванова по чтению «3». ответьте на вопросы: 1.сколько учеников имеют только отличные оценки 2.кто из учеников учится без «3» 3.кто хуже всех учится по труду? 12. на представленной диаграмме показана температура за первые 7 дней мая. укажите: 1) какая температура была 1 мая 2) сколько дней температура была больше 20° 3) какого числа была самая высокая температура 100 руб

1)
const n=10;
var a:array[1..n] of integer;
i,min,s:integer;
begin
for i:=1 to n do
begin
a[i]:=random(81)+10;
write(a[i]:4);
end;
writeln;
min:=a[1];
for i:=1 to n do
begin
if a[i]<min then min:=a[i];
s:=s+a[i];
end;
writeln('min = ',min);
writeln('s = ',s);
end.

Пример:
 54 58 67 78 58 79 54 78 44 60
min = 44
s = 630

2)
const n=9; m=6;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do a[i,j]:=i;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]);
writeln;
end;
end.

Результат: 
111111
222222
333333
444444
555555
666666
777777
888888
999999

var 
a: Array[1..10, 1..10] of Real; 
n, m, i, j, i1, j1, i2, j2: Byte; 
min, max: Real;

begin 
Writeln('Введите кол-во строк и столбцов'); 
Read(n, m);Writeln; 
for i := 1 To n Do 
begin   
Writeln('Введите ', m, ' эл. ', i, '-й строки матрицы');   
for j := 1 To m Do Read(a[i, j])
end; 
Writeln('Ваша матрица:'); 
for i := 1 To n Do 
begin   
for j := 1 To m Do
Write(a[i, j]:7:2);   
Writeln
end; 
for i := 1 To n Do 
begin   
min := a[i, 1];i1 := i;j1 := 1;   
for j := 1 To m Do    
if a[i, j] < min then begin       
min := a[i, j];i1 := i;j1 := j     
end;   
 if i = 1 Then    begin  
max := min;i2 := i1;j2 := j1   
end   
Else    if min > max Then    begin     
max := min;i2 := i1;j2 := j1   
end 
end; 
Writeln('Максимальным из минимумов строк является элемент ', max:6:2, ' с индексами [', i2, ',', j2, ']');
end.