Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

1)Дана матрица размером M * N. В каждой строке матрицы найти минимальный элемент и максимальный из найденного.

10-11 класс

2)дана матрица размерами N * N. Поменять местами столбец с максимальным и столбец содержащий минимальное количество нулевых элементов. Использовать три процедуры (заполнение, смена, вывод).

сысенко 13 апр. 2015 г., 18:15:10 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Лика2004
13 апр. 2015 г., 21:07:58 (9 лет назад)

1)uses crt;
const m=5;
n=5;
var a:array[1..m,1..n] of integer;
b:array[1..m] of integer;
i,max,min,j,k,p:integer;
begin
randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(20);
min:=20;
max:=0;
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
writeln;
k:=1;
repeat
for i:=k to k do
for j:=1 to n do
begin
if (a[i,j]<min) then begin min:=a[i,j]; b[k]:=a[i,j]; end;
end;
inc(k);
min:=20;
until k>n;
for p:=1 to m do
if (b[p]>max) then max:=b[p];
writeln(max);
end.


2)uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,k,p,t,min,max:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(5);
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
writeln;
k:=1;
t:=0;
repeat
for i:=1 to n do
for j:=k to k do
if a[i,j]=0 then inc(t);
b[k]:=t;
t:=0;
inc(k);
until k>n;
min:=5;
max:=0;
for p:=1 to n do
begin
if(b[p]>max) then max:=p;
if(b[p]<min) and (b[p]<>0) then min:=p;
end;
k:=1;
repeat
for i:=k to k do
//for j:=1 to n do
begin
a[k,min]:=a[k,min]+a[k,max];
a[k,max]:=a[k,min]-a[k,max];
a[k,min]:=a[k,min]-a[k,max];
inc(k);
end;
until k>n;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
writeln;
end.


Ответить

Другие вопросы из категории

Желательно описание хода выполнения заданий

1. Врач принимает пациентов с 8 утра до 2 часов дня. На каждого пациента отводится по 30 мин. Какое кол-во информации содержит сообщение о том, что Петя записался на приём в 11:30?
2. В детской магнитной азбуке 32 буквы. Какое количество информации содержит сообщение о том, что из них было собрано слово "муравей"
3. Какое кол-во информации получит второй игрок при игре в кретики-нолики на поле размером 8х8 клеток, после первого хода первого игрока, играющего крестиками?
4. Необходимо отгадать слово, состоящее из 5 букв и записанное с помощью алфавита 32 букв. Можно задавать вопросы, ответом на которые будет "Да" или "Нет". С помощью какого числа вопросов можно отгадать слово при оптимальной стратегии игры?
5. Алфавит некоторого языка состоит из 64 символов. За склько секунд можно передать текст из 2000 символов, если скорость передачи - 50 байтов в секунду?
6. В некотором алфавите записан текст из 300 символов, кол-во информации в тексте - 150 байтов. Сколько символов в алфавите?
7. Имеется файл с текстом из 20000 символов. При наборе текста использовался компьютерный алфавит. Текст необходимо скопировать на дискету, на которой имеется свободная область памяти 20 Кбайт. Поместится ли текст на дискету?
8. В течение 10 секунд было передано сообщение, кол-во информации в котором равно 5000 байтов. Каков размер алфавита, если скорость передачи - 800 символов в секунду?
9.Два сообщения содержат одинаковое кол-во символов. Кол-во информации в первом тексте в 2,5 раза больше, чем во втором. Сколько символов содержат алфавиты, если известно, что символов в каждом алфавите не превышает 32 и на каждый символ приходится целое число битов?
10. Сколько битов информации содержит любое трёхзначное восьмеричное число?

1. Умение общаться с другими людьми с помощью современных средств коммуникации относится к:

а). когнитивному уровню информационной культуры человека
б). поведенческому уровню информационной культуры человека
в). уровню воспитания
г). эмоционально-ценному уровню информационной культуры человека

2. Интенсивность общения к различным источникам информации и их характеристика относится к:
а). когнитивному уровню информационной культуры человека
б). поведенческому уровню информационной культуры человека
в). уровню воспитания
г). эмоционально-ценному уровню информационной культуры человека

3. Совокупность условий, средств и методов на базе компьютерных систем, предназначенных для создания и использования информационных ресурсов, - это:
а). информационная индустрия
б). информационная технология
в). информационная среда
г). информационный процесс

Помогите решить!!!

В массиве a1,a2,a3,,,a10 найти максимальный элемент и его порядковый номер и поменять его местами с последним элементом массива

Два

игрока играют в «Верёвку». Игроки ходят по очереди. В начале игры верёвка имеет
длину 18 см. Ход состоит в том, что игрок отрезает от веревки кусок длиной 4 см
или 5 см. Выигрывает тот игрок, на чьём ходе закончится верёвка (последний
выигрышный ход может быть <4). Кто выиграет при безошибочной
игре двух игроков – игрок, делающий первый ход, или игрок, делающий второй
ход?.

Читайте также

дано массивы A(N1,N1),B(N2,N2),C(N3,N3). найти в каждой строке исходного массива наименьший элемент и переставить его с элементом стоящим на главной

диагонали. нахождение в каждой строке массива наименьшего элемента и его перестановку с элементом стоящим на главной диагонали оформить в виде подпрограммы

плохо очень знаю С++ оч надо решить задачи

1)дан одномерный массив заполнит его так чтобы получилась геометрическая прогрессия где первый член равен 2, d=-3 и вывести в столбец.
2)вывести массив в строку и найти минимальный элемент массива.
3)отсортируйте его по возрастанию и вычислите произведение элементов массива.

Дана матрица размерностью nxn найти

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



Вы находитесь на странице вопроса "1)Дана матрица размером M * N. В каждой строке матрицы найти минимальный элемент и максимальный из найденного.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.