Работа с массивами (pascal)

[dashenka]

Задачка на массив!!!Пожалуйста......
Ввести случайным образом различные элементы массива размером 3*3 включающий числа от 3 до 9 включительно.
Вывести массив на экран
Вывести на экран дополнительную диагональ и вывести произведение всех ее элементов!

[Sazary]

Делаем вот что:
1) Нажимаем Caps Look (или убираем палец с Shift'а).
2) Потом идем сюда -> http://programmersforum.ru/rules.php
3) Затем сюда -> http://programmersforum.ru/announcement.php?f=31
4) Затем -> http://programmersforum.ru/showthread.php?t=8324
5) Там качаем всего и побольше и читаем.
6) После этого пробуем написать программу самостоятельно.
7) Если программа работает некорректно или возникли какие-то конкретные вопросы, то пишете сюда.

Вместо пунктов 4-5 можно воспользоваться поиском и сложить программу по кусочкам из множества аналогичных программ.

[dashenka]

плиииз, помогите!!! я ваще тупая...ноутбуком только орехи умею колоть, а завтра сдавать программу надо...

[Levsha100]

Что именно у Вас не получается?

[dashenka]

я вообще ничего не понимаю в этом, спасите!!!

[Sazary]

dashenka, в таком случае, откуда у вас эта задача?
Если есть задача, значит давали необходимый материал.

Объявляете массив:

mas : array[1..3,1..3] of integer;

Заполняете его случайными элементами. В этом вам поможет функция random().
И дальше по условию.

Сначала попробуйте решить сами.
Введите в поиск "матрица". Часто в решении матрицу заполняют именно случайными числами.
Вот и будет вам пример.

Потом введите "побочная диагональ". И узнаете как работать с ней.

[dashenka]

очень срочно надо программку,пожалуйста напишите хоть что-нибудь дельное!!!

[dashenka]

это типа начало программы???

[Levsha100]

Набросал кое-что :

Program ProgramName;
var
  i,j:byte;
  Mas[1..3,1..3]:Array of byte;
begin
{---заносим случайные даные в массив---}
  For i:=1 to 3 do
    For j:=1 to 3 do
	  Mas[i,j]:=Random(6)+3;
{--------------------------------------}
  {тут работа с диагональю} 
{--вывод-------------------------------}
  For i:=1 to 3 do
  begin
  WriteLn('');
    For j:=1 to 3 do
	  Write(' '+Mas[i,j]+' ');
  end;
End.

[Sazary]

Levsha100, одна поправка:
раз от 3 до 9 включительно, то

Mas[i,j]:=Random(7)+3;