[DIMKA314444]

1. Для двумерного массива написать программы ввода данных в массив с клавиатуры и вывода его на экран в виде матрицы. Использовать вложенные циклы For.

2. Для двумерного массива написать программы заполнения массива с датчика случайных чисел и вывода его на экран в виде матрицы. Использовать вложенные циклы For.

3. Описать целочисленный одномерный массив из 10 ячеек. В каждую ячейку массива занести число равное номеру ячейки. Получившийся масив вывести на экран.

4. Описать целочисленный одномерный массив из 10 ячеек. В элементы массива с нечетными номерами записать число равное квадрату номера ячейки. Получившийся масив вывести на экран.

5. Описать 2 вещественных массива из 10 ячеек каждый В режиме диалога в ячейки первого массива занести произвольные числа. Из первого массива скопировать числа во второй массив в обратном порядке, то есть число из первой ячейки первого массива должно попасть в 10-ю ячейку второва массива, число из второй ячейки первого массива должно попасть в 9-ю ячейку второго массива и т.д. Получившийся масив вывести на экран.

6. Описать вещественный массив из 10 ячеек. В режиме диалога в ячейки массива занести произвольные числа. Найти в массиве максимальное число и определить номер ячейки массива, в которой находиться это число. Вывести на экран массив с числами,максимальное число и номер ячейки, в которой находиться это число.

Спасибо всем кто поможет....

[Konrad]

В раздел

===========>>>>>>>> работа.

А за дублирование тем - можно и бан получить

[DIMKA314444]

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

[Konrad]

Сообщение от DIMKA314444

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

В самом низу форума, есть раздел работа.
Там помогут.

За (р.)рэшки конечно же.

[eXplorer]

Сообщение от DIMKA314444

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

что за бред

...
слишком уж у тебя вопрос (не вопрос даже) большой как уже было сказано выше ----> вам в раздел "работа"
он в самом низу (если что)
или предоставьте пожалуйста код (свои наработки)

[lmikle]

Вообще-то, это не пара, а 6 задач.
Код для "консольки". Если надо полное решение - то в раздел "Работа".

1 & 2.

Код:

const
  N = 10;

var
  A : Array [1..N,1..N] Of Integer;

// С клавиатуры
procedure GetArray;
var
  I, J : Integer;
begin
  WriteLn(Format('Введите значения для массива %dх%d:',[N,N]));
  For I := 1 To N Do
    For J := 1 To N Do
      Begin
         Write(Format('Значение ячейки A[%d,%d]=',[I,J]);
         ReadLn(A[I,J]);
      End;
end;

// Случайными числами
procedure GetArrayRandom;
var
  I, J : Integer;
begin
  WriteLn(Format('Ввод значений для массива %dх%d случайным образом',[N,N]));
  For I := 1 To N Do
    For J := 1 To N Do
       A[1,J] := Random(1000); // 0-999
end;

procedure PrintArray;
var
  I, J : Integer;
begin
  WriteLn(Format('Массив %dx%d:',[N,N]));
  For I := 1 To N Do
    Begin
      For J := 1 To N Do
        Write(A[I,J] + ' | ');
      WriteLn;
    End;
end;

begin
  // С клавы
  GetArray;
  PrintArray;

  // А теперь случайно
  GetArrayRandom;
  PrintArray;
end;

3 & 4:

Код:

const
  N = 10;

var
  A : Array [1..N] Of Integer;

// = номеру ячейки
procedure GetArray;
var
  I : Integer;
begin
  For I := 1 To N Do A[i] := I;
end;

// = квадрату номера ячейки
procedure GetArraySQR;
var
  I : Integer;
begin
  For I := 1 To N Do A[i] := Sqr(I);
end;

procedure PrintArray;
var
  I : Integer;
begin
  WriteLn('Массив:');
  For I := 1 To N Do
    Write(A[i]+' | ');
end;

begin
  // = номеру
  GetArray;
  PrintArray;

  // = кв. номера
  GetArraySQR;
  PrintArray;
end;

5 и 6 просто лень.
Да и не понятно - что такое "В режиме диалога в ячейки первого массива занести произвольные числа". произвольные или в режиме диалога...

[Konrad]

lmikle, он возьмет твой код, и на другом форуме напишет:
"Вот сделал программу для консоли.Вот привожу свой код. Все работает гуд. Но вот как сделать для..................?"

Проходили такое)
Не раз)))
Таким только ===========>>>>>>>> раздел работа поможет)))

[lmikle]

Ну, если он поймет хотя бы как вставить все это в нужные места в консольном приложении, уже будет польза. Я ж не полностью готовый код дал, а только смысловой. Да и, как видишь, там пара задач в одну слита. Что бы растащить опять же надо разобраться как это работает

[friz]

lmikle, хитрец ты какой
вот только я не нашел у тебя в коде randomize... или для консольки он не нужен?

[Assistant]

это шоб врага ввести в заблуждение ))