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]+i<x then
begin
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.
program xxx;
var
b, c : array [1..15] of integer;
i, s, a : integer;
begin
//Подключаем датчик случайных чисел
randomize;
//Цикл заполняющий массивы
for i:=1 to 15 do
begin
b[i]:=random(100);
c[i]:=(b[i] + i);
end;
//Выводим на экран 1ый массив
write('Первый массив: ');
for i:=1 to 15 do
begin
write(b[i],' ')
end;
writeln('');
//Выводим на экран 2ой массив
write('Второй массив: ');
for i:=1 to 15 do
begin
write(c[i],' ')
end;
writeln('');
//Вводим число А
write('Введите число А=');
readln(a);
//Формируем 3-ий массив и находим сумму эоементов меньших А
s:=0;
for i:=1 to 15 do
if c[i]<a then begin c[i]:=c[i]* 2; s:=s+c[i]; end;
//Выводим на экран 3-ий массив
write('Третий массив: ');
for i:=1 to 15 do
begin
write(c[i],' ')
end;
writeln('');
writeln('сумма элементов меньших А=', s);
readln
end.
