[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.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

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:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

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]

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