Решение задачи

http://upwap.ru/1880615 помогите решить в делфи за 30 рублей

30RUB

Я тебе сам дам 30 рублей если ты ее решишь.

Находим наибольший элемент массива:

Program dmas_9;

Uses crt;

const n=3;m=4;

Var a:array[1..n,1..m] of integer;

max,i,j:integer;

Begin

randomize;

For i:=1 to n do

begin

For j:=1 to m do

begin

a[i,j]:=random(10);

write(a[I,j]:4);

end;

writeln;

end;

Находим наименьший элемент массива:

Program dmas_10;

Uses crt;

const n=3;m=4;

Var a:array[1..n,1..m] of integer;

min,i,j:integer;

Begin

randomize;

For i:=1 to n do

begin

For j:=1 to m do

begin

a[i,j]:=random(10);

write(a[I,j]:4);

end;

writeln;

end;

Ну а дальше просто найди сумму всех чисел между ними!) Удачи!)

Добавлено через 03:36 сек.
В общем, вот решение...

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,y,sum:integer;
mas:array[1..6,1..6] of integer;
begin
//обнуляем
for i:=1 to 6 do
for y:=1 to 6 do
mas[i,y]:=random(10)+1;
for i:=1 to 6 do
begin
sum:=0;
s:='';
for y:=1 to 6 do
begin
sum:=sum+mas[i,y];
//writeln(sum);
s:=s+' '+inttostr(mas[i,y]);
end;
s:=s+' ='+inttostr(sum);
memo1.Lines.add(s);
end;
end;

Там в 6*6 230 должно быть? Или я не понимаю эту задачу.

5. РУССКИЙ Дед МоРРроз, ну значит мы 2 ее непонимаем. Мне тоже кажется 6*6

ну что никто не знает полного решения????

Цена 35 RUB

Да никто тебе её решать за 35 рублей не будет...

я с потока на паскале за 100 решаю, давай больше и я сделаю)