заполнить двумерный массив NxN случайными числами из интервала [-5;5] и найти максимальный элемент в каждой строке и поменять его первым элементом этой же
5-9 класс
|
строки
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
i,j,max,k,j1:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(10)-5;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
writeln;
k:=1;
max:=-5;
repeat
for i:=k to k do
for j:=1 to n do
if a[i,j]>max then begin max:=a[i,j]; j1:=j;end;
a[i,j1]:=a[i,1];
max:=-5;
inc(k);
until k=n+1;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
writeln;
end.
Другие вопросы из категории
275(мал.)8 в a(мал.)10
1F3(мал.)16 в a10
112(мал.)10 в a2
94(мал.) в a8
123(мал.)10 в а16
1110011001(мал.)2 в а8
251(мал.) в а2
1111000(мал.)2 в а16
IF5(мал.) в а2
Читайте также
Условия:
Заполнить двумерный массив A случайными числами и построить одномерный массив B,в каждый елемент которого записано:
число елементов каждого стольбца двухмерного массива,значения которых равны заданному значению.
Вопросы вот где " и построить одномерный массив B,в каждый елемент которого записано:
число елементов каждого стольбца двухмерного массива,значения которых равны заданному значению." как это построить? У меня в голове нету абсолютно никаких мыслей.Очень прошу помочь.
2. Опишите массив для хранения зарплаты за каждый месяц. Зарплату считать целым числом.
3.Опишите: a)Переменную В для массива, состоящую из 8 символов. b)Переменную MAS для массива, состоящего из 100 вещественных чисел. c)Переменную DAY для массива, состоящего из 30 целых чисел, причем номер первого элемента массива должен быть равен 5
.4. Пусть А : array [1..10] of integer. Напишите операторы, соответствующие следующим действиям: a. Третий элемент массива сделать равным 5. b. Вывести на экран 7-й элемент массива. c. Ввести значение 1-го элемента массива. d. Вычислить сумму 1,2 и 3-го элементов массива.
5. Пусть А : array [1..15] of real. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Вычислить сумму всех элементов массива (используйте цикл).
6. Пусть C : array [1..10] of integer. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Вывести на экран все элементы массива.
7. Пусть А : array [1..15] of real. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Поменять местами первый и последний элементы массива.
8. Пусть В : array [1..20] of integer. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Заполнить массив случайными числами из интервала [-24;37].
заполнить массив из 10 элементов случайными числами из интервала от -10 до 10 вывести на экран а затем увеличить каждый элемент массива на 1 и повторно вывести на экран
2. Дана фраза. Определить, сколько в ней предложений.