1 Задание:сформируйте и выведите ** экран массив из девяти элементов,каждые три...

Question

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

Answer 1

uses crt;
var
a:array [1..9] of integer;
i,c,m,n:integer;
b:real;
begin
clrscr;
randomize();
c:=1;
for i:=1 to 9 do
begin
if i=c then
begin
a[i]:=i+3;
c:=c+3;
end
else
begin
if 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;
begin
clrscr;
randomize();
writeln('Vvedite chislo');
readln(x);
writeln('Ishodniy');
for i:=1 to 15 do
begin
a[i]:=random(100);
write(a[i],' ');
end;
writeln;
writeln;
writeln('Ispravlenniy');
for i:=1 to 15 do
begin
if a[i]+ibegin
a[i]:=(a[i]+i)*2;
s:=s+a[i];
textcolor(red);
write(a[i],' ');
end else
begin
textcolor(white);
a[i]:=(a[i]+i);
write(a[i],' ')
end;
end;
writeln;
textcolor(green);
writeln('Summa =',s);
readln;
end.