AlexIntegral
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день. Кто-нибудь, прошу, помогите мне разобраться с массивами. Дана вот такая задача: "Дан двумерный массив чисел. Составить программу подсчета количества нулей в четных строках и количества единиц в нечетных; найти наибольший и наименьший элементы и поменять их местами; найти наибольший и наименьший элементы и поменять местами строки, содержащие их. Размерность массива задается с клавиатуры. Значения элементов генерируются случайно."
Я написал код генерации массива с выводом готовой матрицы на экран (консольное приложение):
Код: program ProjectMatrix;
{$APPTYPE CONSOLE}
uses
SysUtils,
Math,
Windows;
var
m,n: integer;
i,j: word;
r: array[1..200,1..200] of integer;
begin
readln(m,n);
Randomize;
for i:=1 to m do
for j:=1 to n do
r[i,j]:=Random(10);
for i:=1 to m do
begin
for j:=1 to n do write(r[i,j]:2);
writeln;
end;
readln;
end. |
Подскажите, как задачу решать дальше. И если не трудно, покажите, как сделать динамический массив схожий с этим статичным. Спасибо. |
При этом акции юзаются тем же способом.
читаем правила форума, подобное ищется в варезнике.
