Ввод массива.

Под вводом массива понимается ввод значений элементов массива. Как и вывод массива, ввод удобно реализовать с помощью оператора цикла for. Чтобы пользователь программы знал, ввода какого элемента массива ожидает программа, следует организовать вывод подсказок перед вводом очередного элемента массива. В подсказке обычно указывают индекс элемента массива.

var

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

i, n: integer;

begin

clrscr;

writeln (’Введите количество элементов массива’); readln (n);

for i:=1 to n do begin

write (‘a[‘,i,’]=’);

readln (a[i]);

end;

Пример: Найти сумму элементов массива.

var

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

i, n, s: integer;

begin

clrscr;

s:=0;

writeln (’Введите количество элементов массива’); readln (n);

for i:=1 to n do begin

write (‘a[‘,i,’]=’);

readln (a[i]);

s:=s+a[i];

end;

writeln (‘Сумма элементов массива=’,s);

readln;

end.

Задание:

1. Заполнить массив:

а) десятью первыми членами арифметической прогрессии с известным первым членом прогрессии a и ее разностью p;

б) двадцатью первыми членами геометрической прогрессии с известным первым членом прогрессии a и ее знаменателем z.

2. Дан массив. Все его элементы:

а) уменьшить на 20;

б) умножить на последний элемент;

в) увеличить на число b.

3. Определить:

а) сумму всех элементов массива;

б) произведение всех элементов массива;

в) сумму квадратов всех элементов массива;

г) сумму шести первых элементов массива;

д) сумму элементов массива с k₁-го по k₂-й (значения k₁ и k₂ вводятся с клавиатуры; k₂>k₁);

е) среднее арифметическое всех элементов массива;

ж) среднее арифметическое элементов массива с s₁-го по s₂-й (значения s₁ и s₂ вводятся с клавиатуры; s₂>s₁).

4. Дан массив. Напечатать:

а) все неотрицательные элементы;

б) все элементы, не превышающие числа 100.

5. Дан массив целых чисел. Напечатать:

а) все четные элементы;

б) все элементы, оканчивающиеся нулем.

6. Дан массив натуральных чисел. Напечатать:

а) все элементы массива, являющиеся двузначными числами;

б) все элементы массива, являющиеся трехзначными числами.

7. Дан массив. Напечатать:

а) второй, четвертый и т.д. элементы;

б) третий, шестой и т.д. элементы.