Обработка и описание массивов

[KIRILOW]

Походу я вообще ничего не знаю :D

[KIRILOW]

double ? Это он?

[Abstraction]

Нет.

{Объявляем двумерный массив 3х5}
Var my2DArray : Array[1..3][1..5] of Integer;

Begin
 {Присваиваем элементу (2,4) значение 10}
 my2DArray[2][4] := 10;
End.

(Взято отсюда).

Теперь соберём всё вместе: напишите код, который берёт двумерный массив 10х10, проходит по всем его строкам, по всем элементам в каждой строке и каждому элементу присваивает некоторое случайное значение.

[KIRILOW]

Я вообще не знаю

[KIRILOW]

Uses Crt;
Type
myRange = 1..5;
arrayIntType = Array[myRange] of Integer;
myFileType = File of arrayIntType;
Var
i : myRange;
myFile : myFileType;
{ the next array is 2 dimensional }
arrayInt : Array[1..2] of arrayIntType;
Begin
Clrscr;
Randomize;
For i := 1 to 5 do
Begin
arrayInt[1][i] := Random(1000);
Writeln('rand num: ',arrayInt[1][i]);
End;
Assign(myFile, 'test.dat');
ReWrite(myFile);
Write(myFile, arrayInt[1]);
Close(myFile);
ReSet(myFile);
Read(myFile, arrayInt[2]);
Close(myFile);

For i := 1 to 5 do
Writeln(i,': ', arrayInt[2][i]);
Readln;
End.

[Abstraction]

Стоп-стоп-стоп, что это Вы написали? Зачем какие-то Assign, ReSet, WriteLn?

Смотрим выше. Напишите код, который берёт двумерный массив 10х10 и присваивает значение 17 элементу (2,6). Используйте пример из предыдущего поста в качестве образца.

[KIRILOW]

Var my2DArray : Array[1..10] of Integer;

Begin
{Присваиваем элементу (2,6) значение 10}
my2DArray[2][6] := 10;
End.

[Abstraction]

Нет. Массив у Вас одномерный, сравните с моим кодом выше. И значение 17.

[KIRILOW]

Можете сами написать,а то я не могу

[Abstraction]

Риторический вопрос: кому нужен результат - мне или Вам? У меня приведён код, объявляющий двумерный массив 3х5 и присваивающий его элементу (2,4) значение 10. Возьмите код и поменяйте числа на нужные.