Заглавная страница
Избранные статьи
Случайная статья
Познавательные статьи
Новые добавления
Обратная связь
FAQ
Написать работу

ТОП 10 на сайте

Приготовление дезинфицирующих растворов различной концентрации

Техника нижней прямой подачи мяча.

Франко-прусская война (причины и последствия)

Организация работы процедурного кабинета

Смысловое и механическое запоминание, их место и роль в усвоении знаний

Коммуникативные барьеры и пути их преодоления

Обработка изделий медицинского назначения многократного применения

Образцы текста публицистического стиля

Четыре типа изменения баланса

Задачи с ответами для Всероссийской олимпиады по праву

Мы поможем в написании ваших работ!

ЗНАЕТЕ ЛИ ВЫ?

Влияние общества на человека

Приготовление дезинфицирующих растворов различной концентрации

Практические работы по географии для 6 класса

Организация работы процедурного кабинета

Изменения в неживой природе осенью

Уборка процедурного кабинета

Сольфеджио. Все правила по сольфеджио

Балочные системы. Определение реакций опор и моментов защемления

Главная Избранные Случайная статья Познавательные Новые добавления Обратная связь FAQ Написать работу

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

↑

⇐ ПредыдущаяСтр 2 из 2

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.

⇐ Предыдущая 12

Познавательные статьи:

Техника прыжка в длину с разбега

Организация работы процедурного кабинета

Области применения синхронных машин

Оптимизация по Винеру и Калману

Последнее изменение этой страницы: 2016-12-14; просмотров: 407; Нарушение авторского права страницы; Мы поможем в написании вашей работы!

infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 216.73.217.21 (0.006 с.)