Реферат: Массивы в языках Pascal и Basic

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];