У вас вопросы?
У нас ответы:) 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% при заказе до 1.5.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. Воспроизводство населения и демографический переход
3. вариантами исходных данных
4. 2013 Сражался он чтоб жили мы
5. АМКОДОР насчитывает более 85 лет
6. Методические рекомендации по прохождению производственной практики студентов специальности 080505
7. Правовой статус представительного органа муниципального образования
8. Причины преступности несовершеннолетних и меры по ее предупреждению
9. тема земельного права как отрасли права
10. по теме- Базы данны