Задача: вводятся размер одномерного массива и его элементы. Удалить из исходного массива элементы, номера которых не являются числами Фибоначчи.

3) Program A;

const

fibonacci = [0,1,2,3,5,8,13,21,34,55,89,144,233];

var

inputed, sorted: array [1..255] of integer;

razmer, indeks, n: byte;

begin

Write('Введите размер массива (от 1 до 255): ');

ReadLn(razmer);

WriteLn;

if razmer>255 then

repeat

writeln('Размер массива не может быть больше 255');

write('Введите размер массива (от 1 до 255): ');

readln(razmer);

writeln;

until razmer<=255;

writeln('Введите массив:');

for indeks:=1 to razmer do

begin

write('Введите ',indeks,'-й элемент: ');

readln(inputed[indeks]);

end;

n:=0;

for indeks:=1 to razmer do

if indeks in fibonacci then

begin

n:=n+1;

sorted[n]:=inputed[indeks];

end;

inputed:=sorted;

writeln;

writeln('Массив без элементов с индексами из ряда Фибоначчи: ');

for indeks:=1 to n do write(inputed[indeks], ';', ' ');

writeln;

writeln ('Для выхода нажмите любую клавишу');

readln;

end.

Найти сумму положительных элементов в строках двумерного массива

¡ Вводятся размер одномерного массива и его элементы. Вывести произведение простых чисел среди элементов массива, которые меньше 1000.

2.Вводятся размер одномерного массива и его элементы. Вывести среднее арифметическое составных чисел среди элементов массива, которые являются делителями числа 2400.

3.Program 1

vara,b: array[1..1000] of integer;

i,n,j,k,res,f,kol:integer;

begin

 

writeln('vvediterazmermassiva');

readln(n);

for i:=1 to n do begin

readln(a[i]);

end;

j:=0;

for i:=1 to n do

if (2400 mod a[i] = 0) and (a[i]<>1) then begin

j:=j+1;

b[j]:=a[i];

end;

k:=j;

writeln('noviymassivsostoitizdeliteleychisla 2400');

for j:=1 to k do write (b[j],' ');

writeln;

 

res:=0;

kol:=0;

for j:=1 to k do begin

f:=1;

REPEAT

f:=f+1;

until (f>sqrt(b[j])) or (b[j] mod f =0);

if (f<=sqrt(b[j])) then begin

res:=res+b[j];

kol:=kol+1;

end;

end;

ifkol<>0 then write('sredneearifmeticheskoe ',res/kol:4:2)

else write('net sostavnih chisel');

readln

end.

 

2.Вводятся размер одномерного массива и его элементы. Составить новый массив из номеров элементов исходного массива, которые являются числами Фибоначчи.

3.Program 2
var a:array [1..100,1..100] of integer;

Begin

readln(n);

for i:=1 to n do

readln(a[i]);

k:=1;

for i:=1 to 2 do

if a[i]=1 then begin

b[k]:=i;

k:=k+1;

end;

for i:=1 to k-1 do

write (b[i], ` `);

end.

2.Вводятся размеры двумерного массива и его элементы. Составить новый массив из сумм элементов исходного массива, кратных 5, в строках. Результат вывести.

3.Program 3
var a:array [1..100,1..100] of integer;

b:array [1..10000] of integer;

i,j,s:integer;

n,m,k:integer;

Begin

readln(n,m);

for i:=1 to n do

for j:=1 to m do

readln(a[i,j]);

k:=1;

for i:=1 to n dobegin

s:=0;

for j:=1 to m do s:=s+a[I,j];

if s mod 5=0 then begin

b[k]:=s;

k:=k+1;

end;

end;

for i:=1 to k-1 do

write (b[i], ` `);

end.

 

Вводятся размер одномерного массива и его элементы. Вывести сумму совершенных чисел среди элементов массива, которые делятся на 7.

program ex;

var a: array [1..100] of longint;

i,n,b,c,d: longint;

begin

d:= 0;

writeln ('Введите размер вектора');

readln (n);

writeln ('Введите элементы вектора');

for i:= 1 to n do

readln (a[i]);

for i:= 1 to n do

begin

c:= 0;

for b:= 1 to (a[i] div 2) do

if a[i] mod b= 0 then

c:= c+b;

if c = a[i] then

if a[i] mod 7 =0 then

d:=d+a[i];

end;

writeln(d);

readln;

end.