Массивы. Тексты программ: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) |
Mikst (обсуждение | вклад) |
||
Строка 19: | Строка 19: | ||
=== Заполнение случайными числами === | === Заполнение случайными числами === | ||
<source lang="Delphi">const Sz = 100; // Размер массива | |||
var | |||
a: array [1..Sz] of integer; | |||
N: integer; // Количество элементов в массиве | |||
i: integer; | |||
begin | |||
N := 20; | |||
for i:=1 to N do | |||
a[i] := Random(100); | |||
writeln('Элементы массива: '); | |||
for i:=1 to N do | |||
write(a[i],' '); | |||
end.</source> | |||
=== Заполнение арифметической прогрессией === | === Заполнение арифметической прогрессией === |
Версия от 08:08, 30 ноября 2009
Ввод и вывод
const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;
begin
write('Введите количество элементов в массиве: ');
readln(N);
write('Введите элементы массива: ');
for i:=1 to N do
read(a[i]);
write('Вывод элементов массива: ');
for i:=1 to N do
write(a[i],' ');
end.
Заполнение случайными числами
const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;
begin
N := 20;
for i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива: ');
for i:=1 to N do
write(a[i],' ');
end.