Массивы в языках Pascal и Basic
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
диагонали матрицы, наибольшего и наименьшего.
program mas4;
var
a: array[1..10,1..10] of integer;
i,j,max,min: integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
begin
write(Введите значение элемента матрицы = );
readln(a[i,j])
end;
max:=a[1,1];
min:=a[1,1];
for i:=1 to 10 do
begin
if a[i,i]>max
then
max:=a[i,i];
if a[i,i]<min
then
min:=a[i,i]
end;
writeln(Наибольшее значение = , max);
writeln(Наименьшее значение = , min);
readln
end.
Пример 5. Сортировка массива по возрастанию.
program SortingMax;
var i,j:integer;
r,q:real;
x:array [1..20] of real;
begin
writeln(Ведите массив, cостоящий из 20 чисел:);
for i:=1 to 20 do read(x[i]);
for i:=1 to 19 do
for j:=i+1 to 20 do
if x[i]>=x[j] then
begin
r:=x[i]; x[i]:=x[j]; x[j]:=r
end;
writeln(Сортировка массива по возрастанию произведена:);
for i:=1 to 20 do writeln(x[i]);
writeln(Для выхода введите любое число.);
readln(q);
end.
Источник:
Львовский М.Б. Методическое пособие BOOK по информатике для 9-11 классов. Адрес: