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:
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.
2. Корабельные электроэнергетические установки
3. 012013 ~ 17022013 Практика проходила под руководством от филиала МИФИ ~ кандидат педагогических наук старший пр
4. Россия и мировой восточный вопрос
5. 2012 місто Львів Реєстр прис
6. оно представляет собой разновидность хищения; 2 размер хищения мелкий т.html
7. Тематика докладов по дисциплине Институциональная экономика Основные течения институционализма.html
8. КОНСПЕКТ ЛЕКЦІЙ З ДИСЦИПЛІНИ БІРЖОВА СПРАВАrdquo; для студентів заочної форми навчання напр
9. і. Село Вільшанка загубилося серед мальовничих подільських степів їх чарівність нікого не може залишити б
10. Здоровый ребенок имеющий факторы риска относится к группе здоровья- а I бIIа в IIб г III
11. то окажется 2 карточки
12. реферат дисертації на здобуття наукового ступеня кандидата юридичних наук Київ 2003
13. Смольный собор 4 января суббота
14. СВОЕ И ЧУЖОЕ СЛОВО В ХУДОЖЕСТВЕННОМ ТЕКСТЕ ТВЕРЬ 1999
15. реферат дисертації на здобуття наукового ступеня кандидата медичних наук КИЇВ ~3
16. статьями 41 42 45 46 Градостроительного кодекса Российской Федерации постановлением администрации Волгограда.html
17. Анализ финансовых возможностей предприятия ОАО АВТОВАЗ для организации маркетинговой деятельности
18. О мерах по снижению заболеваемости вирусным гепатитом в стране где четко указаны меры по профилактике пр
19. VIII вв до нэ XII в
20. творческой компетенции у студентов педагогического колледжа Чернышева София Анатольевна аспирант Че