Визначити найменший елемент кожного парного рядка матриці. Знайти найбільший і найменший елемент прямокутної матриці A (m⨯n). Поміняти їх місцями. Надрукувати змінену матрицю. Визначити номери рядків матриці A (m⨯n), хоча б один елемент яких дорівнює с, і елементи цих рядків помножити на d.

Компьютеры уже достаточно давно вошли в нашу жизнь. Они изменили мир и возможности человека. Но все-таки сложно рассуждать о том, пользу или вред приносит нам компьютер.
С донной стороны, он существенно облегчил жизнь человека. Особенно для учащихся школы и студентов нет ничего проще чем «написать» реферат, курсовую, дипломную работу или найти интересующую информацию. Возможности Интернета не ограничены. В работе бухгалтера компьютер является, без сомнения, основным рабочим инструментом. В медицине компьютерная диагностика организма выявить возникшие проблемы. Для архитекторов, дизайнеров, модельеров компьютер открыл огромные возможности. И даже в шоу-бизнесе без него не обойтись. Подумайте, где были бы наши «звезды» без компьютерных технологий? Компьютер на производстве управляет другими машинами, руководит процессом. Человек стал теперь просто пассивным наблюдателем. Компьютер следит за работой, человек следит за компьютером.
Если раньше ценился физический труд, то в наше время все больше возрастает потребность в труде интеллектуальном. И опять же, нельзя оценить это однозначно. Конечно, многие люди существенно расширили свой кругозор, но вот физическое состояние оставляет желать лучшего. Мы постепенно забываем о физической нагрузке, о спорте, который еще никому не принес вреда. А ведь здоровье не купишь ни за какие деньги. Многие этого не понимают. А может быть им просто все равно. Часто люди, в частности школьники, предпочитают просидеть долгие часы за компьютером, чем, скажем, прогуляться на свежем воздухе, и даже не задумываются о том, какой непоправимый вред наносят сами себе. 

А что говорить о книгах? Они постепенно отходят на второй план. И это вполне естественно в создавшейся ситуации. Судите сами: зачем читать что-то, если любое сочинение, реферат, какую-либо исследовательскую работу можно скачать из Интернета? Причем не нужно прилагать к этому особых усилий, да и времени уйдет гораздо меньше. Ну а если захочется все же иногда почитать, то совершенно нет необходимости идти в библиотеку или загромождать квартиру шкафами с книгами, потому что один компьютер может заменить сотни таких шкафов. Во всяком случае, если не может пока, то сможет в скором времени.
Что касается обычной, повседневной жизни людей, то и в нее постепенно проникает компьютер. Например, имеет место такое явление как Интернет-магазины. То есть уже даже покупки можно сделать, не выходя из дома. Конечно, для таких маленьких провинциальных городков как Канск это пока недоступно, но я думаю, что это не надолго. Ведь компьютерные технологии развиваются стремительно. Прогресс не стоит на месте. В настоящее время везде, где бы мы не оказались, люди говорят об Интернете. Эта технология оказывает на нашу жизнь такое же огромное влияние, как телефон и телевидение. И нет уже, наверное, такой сферы жизни, которой не коснулся бы компьютер. Но подумайте, хорошо ли то, что в скором времени почти все за человека будут делать машины? Честно сказать, я не могу представить себе жизнь в мире, который представляет собой один большой компьютер. Конечно, я не говорю о том, что нужно поднимать вооруженное восстание против машин. В конце концов, нам без них уже не обойтись. Но я считаю, что вмешательство компьютеров нужно ограничить. В жизни ничего не достается бесплатно, и цена, которую мы платим за что оказывают нам машины, - это вред, наносимый нашему здоровью. Логично сделать вывод, что чем больше компьютеры будут нам тем больше будет расти эта цена. А сможем ли мы заплатить ее уже в ближайшем будущем? Я думаю, что в наших силах сделать так, чтобы мы смогли

uses crt;
var
a:array[1..7,1..10] of integer;
b,i,j:integer;
begin
clrscr;
randomize();

//заполнение массива случайными числами

for i:=1 to 7 do
for j:=1 to 10 do
begin
a[i,j]:=random(10);
end;

//вывод массива

for i:=1 to 7 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;

//удаляем строку 6 и меняем 5 и 2 строки местами

for j:=1 to 10 do
begin
a[6,j]:=a[7,j];
a[7,j]:=0;
b:=a[5,j];
a[5,j]:=a[2,j];
a[2,j]:=b;
end;
writeln('Отредактированный массив');
//выводим отредактированный массив
for i:=1 to 6 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
readln();
end.