Заполнить массив случайными числами из интервала от 0 до 50 и вывести его на экран. (на 3 найти сумму его четных элементов (на 4-5). может : пример. заполнить массив 20 элементами случайными числами от 0 до 35 и вывести его на экран. решение: 1сп (ввод и вывод массива отдельными циклами) var a: array[1..20]of integer; i: integer; begin {заполняем массив случайными числами} for i: =1 to 20 do a[i]: =random(36); {выводим массив на экран} for i: =1 to 20 do begin write (a[i]: 5); end. 2сп (ввод и вывод массива в одном цикле) var a: array[1..20]of integer; i: integer; begin {заполняем массив случайными числами и сразу выводим} for i: =1 to 20 do begin a[i]: =random(36); write (a[i]: 5); end; end.

//PascalABC.Net
//NaaMan
var
    a : array[1..20] of integer;
    n, sum : integer;
begin
    randomize;
    sum := 0;
    writeln('Заполнение массива:');
    for n := 1 to 20 do begin
        a[n] := random(50);
        if a[n] mod 2 = 0 then sum := sum + a[n];
        write( a[n], ' ' )
        end;
    writeln;
    writeln('Сумма четных элементов: ', sum)
end.

Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. Тут всё просто - тебе лишь нужен цикл For и расчет процентов.

FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.  

Program N70231806_1;
var a:array[ 1 .. 10 ] of shortint;
i:byte;
t:shortint;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to 10 do
begin
a[ i ] := random(21) - 10;
write(a[ i ]:4)
end;
writeln;
t := a[ 10 ];
for i := 10 downto 2 do
a[ i ] := a[ i - 1 ];
a[ 1 ] := t;
writeln('Результат: ');
for i := 1 to 10 do
write(a[ i ]:4);
readln
end.

2)
program N70231806_2;
var a:array[ 1 .. 12 ] of shortint;
i, j:byte;
t:shortint;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to 12 do
begin
a[ i ] := random(25) - 10;
write(a[ i ]:4)
end;
writeln;
for j := 1 to 4 do
begin
t := a[ 12 ];
for i := 12 downto 2 do
a[ i ] := a[ i - 1 ];
a[ 1 ] := t
end;
writeln('Результат: ');
for i := 1 to 12 do
write(a[ i ]:4);
readln
end.