одномерного массива, значение элементов которых меньше
заданного действительного числа t.
program mas3;
var a: array [1..10] of real;
i,k: integer; t:real;
begin
write('Введите число t=');
read(t);
k:=0;
for i:=1 to 10 do
begin
write('Введите значение элемента a(', i, ') = ');
readln(a[i]);
if a[i]<t then k:=k+1
end;
writeln('Ответ: Количество элементов, меньших заданного числа t,');
writeln('равно k=',k);
readln
end.
Пример 4. Нахождение среди значений элементов, находящихся на
главной диагонали матрицы, наибольшего и наименьшего.
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 классов. Адрес:
http://markbook.chat.ru/book/