У вас вопросы?
У нас ответы:) SamZan.net

30] of integer; ikmxmx2-integer; begin for i-1 to 30 do begin [i]-rndom20001000; if i1 then mx-[1]; if [i]]mx then mx-[i]; write[i]-5; end; writeln; fo

Работа добавлена на сайт samzan.net: 2015-07-10

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 6.4.2025

program n2;

uses crt;

var

a:array[0..30] of integer;

t,q,i:integer;

begin

for i:=1 To 30 do begin

begin

a[i]:=random(41)-20;

write(a[i]:4);

if a[i]>=0 then t:=t+1;

if a[i]>=0 then q:=q+a[i];

end;

end;

writeln;

writeln('Средняя температура оттепели: ',trunc(q/t));

end.

Program n3;

uses crt;

var

a:array[0..30] of integer;

t,q,i,e,w:integer;

begin

for i:=1 To 30 do begin

begin

a[i]:=random(101);

write(a[i]:4);

t:=a[i]+t;

inc(q);

end;

end;

writeln;

e:=trunc(t/q);

writeln('Средняя оценка:',e);

for i:=1 to 30 do

begin

if a[i]>e then

inc(w);

end;

writeln('Кол-во участников, у которых баллов больше, чем у средне арфиметического',w);

end.

program n4;

uses Crt;

var a:array[1..30] of integer;

i,k,max,max2:integer;

begin

for i:=1 to 30 do

begin

a[i]:=random(2000)-1000;

if i=1 then max:=a[1];

if a[i]>=max then max:=a[i];

write(a[i]:5);

end;

writeln;

for k:=1 to max do

for i:=1 to 30 do

if max-k=a[i] then

begin

max2:=a[i];

k:=max;

i:=30;

end;

writeln(max2);

end.

program n5;

uses crt;

var a:array[1..30] of integer;

i,j,k:integer;

begin

for i:=1 to 30 do

begin

a[i]:=random(2000)-1000;

write(a[i]:5);

end;

for i:=1 to 30 do

begin

if (a[i]>0) and (k<3) then

begin

k:=k+1;

j:=i;

end;

end;

writeln('Номер третьего пол. элемента:',j);

end.

Program n6;

uses crt;

var a:array [1..10] of integer;

i,l,q,s,w:integer;

begin

for i:=1 to 10 do

begin

a[i]:=random(2000)-1000;

write(a[i]:5);

end;

w:=0; q:=a[1];

for i:=1 to 9 do

if a[i]<a[i+1] then

q:=q+a[i+1] else

begin

if q>w then w:=q;

q:=a[i+1];

end;

writeln;

writeln('Сумма наибольшей возрастающей последовательности подряд идущих элементов = ',w);

end.

program n7;

uses crt;

var a:array [1..30] of integer;

i,j,min,min2,q:integer;

begin

for i:=1 to 30 do

begin

a[i]:=random(2000)-1000;

write(a[i]:5);

end;

q:=abs(a[1]-a[2]);

for i:=1 to 29 do

for j:=i+1 to 30 do

if abs(a[i]-a[j])<q then

begin

q:=abs(a[i]-a[j]);

min:=i;

min2:=j;

end;

writeln;

writeln('Два элемента массива, наименее отличающиеся друг от друга:');

writeln('1-й элемент = ',a[min],'; его номер ',min);

writeln('2-й элемент = ',a[min2],'; его номер ',min2);

end.

program n8;

uses crt;

var a:array[1..30] of integer;

min,min2,q,w,i:integer;

begin

for i:= 1 to 30 do

begin

a[i]:=random(2000)-1000;

write(a[i]:5);

end;

min:=a[1];

for i := 2 to 30 do

begin

if min>a[i] then

begin

q:=i;

min:=a[i];

end;

end;

min2:=a[1];

for i := 2 to 30  do begin

if (min2>a[i]) and (a[i]<>min) then

begin

w:=i;

min2:=a[i];

end;

end;

writeln;

writeln('Первое минимальное = ',q,' Второе минимальное = ',w);

end.




1. варианта ответов- а верно описываемое свойство типично для моего поведения или присуще мне в большей степе
2. Весенний Бал Кубок Главы Абзелиловского района по танцевальному спорту 16 марта 2014 года
3. стилизация в композиции
4. Разработка и создание СКС на базе сетей Ethernet при подключении пользователей жилого дома к глобальной сети INTERNE
5. Организация технического обслуживания и текущего ремонта автомобилей
6. на тему- Аналіз сучасного стану питань виробництва і збагачення дріжджового тіста Виконавець- К
7. Задание- Даны тип взрывной камеры и ее внутренние размеры
8. Реферат- Проектирование кулачковых механизмов
9. а Медиа объединение обеспечивает доставку CD и DVD дисков с четырех складов расположенных в разных т
10. ШКАТУЛКА- На время МК предоставляются все необходимое- инструменты заготовка и материалы для работы вкл