2. определите число элементов, заданной целочисленной матрицы а(n, m), равных её минимальному элементу.

Var a:array[1..100,1..100] of integer;                     
            N,M,i,j,min,kmin:integer;
begin
readln(N,M);
min:=10000;
kmin:=0;     
for i:=1 to N do begin           
  writeln();         
      for j:=1 to M do begin           
               a[i,j]:=random(50);
                 write(a[i,j],'  ');         
               if min = a[i,j] then
                            kmin:=kmin+1           
               else if min > a[i,j] then begin
                                        kmin:=1; min:=a[i,j];
                            end;         
          end;     
end;
writeln();
write(min,' ',kmin);
readln();
end.

Здравствуйте!

Зовут меня Алексеева Ольга Вячеславовна, но друзья обычно называют меня Оленькой. У меня много хобби  и пристрастий: я люблю заниматься вышивкой гладью и вязанием на спицах, люблю читать, преимущественно детективы. Моя любимая книга детективного жанра - "Приключения Шерлока Холмса" Сэра Артура Конан Дойля. Еще я получаю огромное удовольствие от просмотра документальных фильмов. Больше всего мне нравится исторический сериал "Великая". Помимо этого я питаю слабость к классической музыке. Я восхищаюсь и с наслаждением слушаю Шопена и симфонии Моцарта. А что касается стиля в одежде - то здесь я предпочитаю удобный стиль "Кэжуал".

за внимание!

program name;
var i,n,x,summa,count:integer;
nechet:boolean;
begin
Writeln('Vvedite n: ');
readln(n);//получаем n
summa:=0;
count:=0;
i:=1;
if(n mod 2 = 1) then nechet := true else nechet := false; //проверяем четное число или нет
while i<n do begin//пока число меньше n
if(nechet) then//если число нечентное
begin
summa:=summa+i*i*i;//прибавляем к сумме куб этого числа
end
else//если число четное
begin
summa:=summa+i*i;//прибавляем квадрат числа
end;
i:=i+1;//прибавляем число на 1
end;
writeln(' summa: ', summa);//выводим сумму
readln();
end.