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

1. ozilmahmudov (08.12.2011 / 14:27)
http://upwap.ru/1880615 помогите решить в делфи за 30 рублей

2. ozilmahmudov (08.12.2011 / 14:43)
30RUB

3. Мандарин (08.12.2011 / 14:46)
Я тебе сам дам 30 рублей если ты ее решишь.

4. Hennessy (08.12.2011 / 14:53)
Находим наибольший элемент массива:

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;

5. MiLler (08.12.2011 / 14:58)
Там в 6*6 230 должно быть? Или я не понимаю эту задачу.

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

7. ozilmahmudov (08.12.2011 / 19:16)
ну что никто не знает полного решения????

8. ozilmahmudov (08.12.2011 / 20:09)
Цена 35 RUB

9. Hennessy (09.12.2011 / 05:52)
Да никто тебе её решать за 35 рублей не будет...

10. Павел (09.12.2011 / 08:13)
я с потока на паскале за 100 решаю, давай больше и я сделаю)

11. ozilmahmudov (10.12.2011 / 11:45)

Мандарин (8 Декабря 2011 / 14:46)
Я тебе сам дам 30 рублей если ты ее решишь.

Давай перечисляй 30 руб. Я сделал

12. Мандарин (10.12.2011 / 11:47)
Два дня решал)) неустойка покрыла 30руб. помог кто?

13. Apollon76 (10.12.2011 / 12:15)
Две очень халявных задачи,которые пишутся за 5 минут.)))
Если будут ещë такие задачи по 30 р.-напишу.

14. ozilmahmudov (10.12.2011 / 12:20)

Apollon76 (10 Декабря 2011 / 12:15)
Две очень халявных задачи,которые пишутся за 5 минут.)))
Если будут ещë такие задачи по 30 р.-напишу.

Если ты такой умный покажи решение 2 задачи

Добавлено через 00:32 сек.

Мандарин (10 Декабря 2011 / 11:47)
Два дня решал)) неустойка покрыла 30руб. помог кто?

Да помогли

15. Apollon76 (10.12.2011 / 12:43)
var i,j:integer;
a:array[0..6,0..6]of integer;
begin
a[1,0]:=1;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
a[j,i]:=a[j-1,i]+a[j,i-1];
end;
end;
for i:=1 to 6 do
begin
for j:=1 to 6 do
write(a[j,i],' ');
writeln;
end;
end.

16. Apollon76 (10.12.2011 / 13:09)
Пожалуйста.Писал минуту.

17. ozilmahmudov (11.12.2011 / 13:48)
16. Apollon76, интересно узнать и по какому же правилу сочтавлен массив в задаче 2?

18. Apollon76 (11.12.2011 / 13:53)
Верхнее плюс левое.)Это перевёрнутый треугольник Паскаля.

URL: https://visavi.net/topics/27241