В первой да, во второй нужно матрицу вводить, там посложнее.
[syntax='Delphi']
for i:=1 to N do
begin
for j:=1 to M do
read(Matrix[i,j]);
readln;
end;
[/syntax]
Массивы.Паскаль
Ни что так не ограничивает фантазию программиста, как компилятор...
Помогите с задачкой)) Даны два массива размерностью 100. Составить программу меняющую элементы первого массива на элементы второго, а элементы второго на элементы первого. заранее спасибо)
var a, b, c: array[1..100] of integer;
begin
c:=a;
a:=b;
b:=c;
end.
begin
c:=a;
a:=b;
b:=c;
end.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
-
- Сообщения: 1
- Зарегистрирован: 10 янв 2009, 12:29
Хелп ... седня надо 
Дан одномерный массив А длинной N(N<=20).
Найти последний максимальный и первый минимальный элементы массива и поменять их местами.

Дан одномерный массив А длинной N(N<=20).
Найти последний максимальный и первый минимальный элементы массива и поменять их местами.

См. раздел Алгоритмы. Совсем мозгом не хотят работать.... 

Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Спасибо)) Очень помог!!!