1)Дана матрица размером M * N. В каждой строке матрицы найти минимальный элемент и максимальный из найденного.
10-11 класс
|
2)дана матрица размерами N * N. Поменять местами столбец с максимальным и столбец содержащий минимальное количество нулевых элементов. Использовать три процедуры (заполнение, смена, вывод).
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. Сколько битов информации содержит любое трёхзначное восьмеричное число?
а). когнитивному уровню информационной культуры человека
б). поведенческому уровню информационной культуры человека
в). уровню воспитания
г). эмоционально-ценному уровню информационной культуры человека
2. Интенсивность общения к различным источникам информации и их характеристика относится к:
а). когнитивному уровню информационной культуры человека
б). поведенческому уровню информационной культуры человека
в). уровню воспитания
г). эмоционально-ценному уровню информационной культуры человека
3. Совокупность условий, средств и методов на базе компьютерных систем, предназначенных для создания и использования информационных ресурсов, - это:
а). информационная индустрия
б). информационная технология
в). информационная среда
г). информационный процесс
В массиве a1,a2,a3,,,a10 найти максимальный элемент и его порядковый номер и поменять его местами с последним элементом массива
игрока играют в «Верёвку». Игроки ходят по очереди. В начале игры верёвка имеет
длину 18 см. Ход состоит в том, что игрок отрезает от веревки кусок длиной 4 см
или 5 см. Выигрывает тот игрок, на чьём ходе закончится верёвка (последний
выигрышный ход может быть <4). Кто выиграет при безошибочной
игре двух игроков – игрок, делающий первый ход, или игрок, делающий второй
ход?.
Читайте также
диагонали. нахождение в каждой строке массива наименьшего элемента и его перестановку с элементом стоящим на главной диагонали оформить в виде подпрограммы
1)дан одномерный массив заполнит его так чтобы получилась геометрическая прогрессия где первый член равен 2, d=-3 и вывести в столбец.
2)вывести массив в строку и найти минимальный элемент массива.
3)отсортируйте его по возрастанию и вычислите произведение элементов массива.
Дана матрица размерностью nxn найти минимальный элемент среди элементов расположенных над главной диагональю матрицы. Найти квадрат разности среди арифметических значений элементов матрицы ,находящихся ниже и выше главной диагонали
матрицу и полученный массив.
матрицы , 2-ю тройку - во второй строке , 3-ю тройку - в третьей строке .