1 Задание:сформируйте и выведите на экран массив из девяти элементов,каждые три последовательных элемента которого составлены по следующему правилу: 1-й равен значению текущего индекса, увеличенному на 3; 2-й равен квадрату предыдущего индекса; 3-й равен сумме двух предыдущих элементов. 2 Задание : сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты .

uses crt;vara:array [1..9] of integer;i,c,m,n:integer;b:real;beginclrscr;randomize();c:=1;for i:=1 to 9 dobeginif i=c thenbegina[i]:=i+3;c:=c+3;endelsebeginif i mod 3=0 then a[i]:=a[i-1]+a[i-2] else a[i]:=sqr(i-1);end;write(a[i],' ');end;readln();end.

uses crt;var x,y,s,i,j:integer;a: array [1..15] of integer;beginclrscr;randomize();writeln('Vvedite chislo');readln(x);writeln('Ishodniy');for i:=1 to 15 dobegina[i]:=random(100);write(a[i],' ');end;writeln;writeln;writeln('Ispravlenniy');for i:=1 to 15 dobeginif a[i]+i<x thenbegina[i]:=(a[i]+i)*2;s:=s+a[i];textcolor(red);write(a[i],' ');end elsebegintextcolor(white);a[i]:=(a[i]+i);write(a[i],' ')end;end;writeln;textcolor(green);writeln('Summa =',s);readln;end.