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

random(i:word):word - генерирует случайные числа вдиапазоне

0...1.

randomize - изменение базы генератора случайных чисел.

program mas1;

var

a: array [1..10] of integer;

i: integer;

begin

randomize;

for i:=1 to 10 do

begin

a[i]:=random(20);

write('a(', i, ')=', a[i], ' ')

end;

readln

end.

Пример 2. Составить программу заполнения одномерного массива, так чтобы егоi-ый элемент был равенa[i]=(i*i+1)/sin(i).

program mas2;

var a: array [1..10] of real;

i: integer;

begin

for i:=1 to 10 do

begin

a[i]:=(i*i+1)/sin(i);

writeln('a(', i, ')=', a[i], ' ');

end;

readln

end.

Пример 3. Составить программу определения количества элементов одномерного массива, значение элементов которых меньше заданного действительного числа t.