Help паскаль

1. Найти количество минимальных и максимальных из данных ста целочисленных элементов
2. Дана матрица чисел размером 13х13 найти сумму элементов лежащих выше главной диагонали

 

Вторая.

Code:

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

 begin
 s:=0;
 randomize;

   for i:=1 to 10 do
	for j:=1 to 10 do

	begin
	a[i,j]:=random(10);
	if i<j then s:=s+a[i,j]
	end;
 
 writeln ('s=',s);
 end.

 

Первая.

Code:

var a:array[1..100] of integer;
    min,max,kolmin,kolmax,i:integer;
begin
randomize;
for i:=1 to 100 do begin
    a[i]:=random(100); {генерируем числа от 0 до 99}
    if i=1 then begin  min:=a[1]; max:=a[1]; end;
    if a[i]<min then min:=a[i]; {находим min и max элемент}
    if a[i]>max then max:=a[i];
end;
kolmin:=0;
kolmax:=0;
for i:=1 to 100 do begin         {подсчитываем количество min и max}
    if a[i]=min then inc(kolmin);
    if a[i]=max then inc(kolmax);
end;

writeln(kolmin,' ',kolmax);
end.

 

спасибо парни)))

 

Randomize необходимо вызывать перед каждым вызовом Random

 

И кто тебе это сказал?

 

Не переношу паскаль... На пыхе это сделать в 100500 раз легче :-\

 

OnlyOn гонишь