programmy
.docxНаписать программу нахождения номера наименьшего положительного элемента в последовательности N произвольных чисел, вводимых с клавиатуры.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
Program simple; Uses crt; Var A:array[1..100] of real; min,nomer:real; i,n:integer; Begin repeat ClrScr; Write('Введите n '); ReadLn(N); until n>0; for i:=1 to n do begin Write('A[',i,']= '); ReadLn(A[i]); end; WriteLn('Вы ввели: '); for i:=1 to n do Write(A[i]:5:3,' ');
for i:=1 to n do if A[i] >= 0 then begin min:=A[i]; nomer:=i; end;
for i:=1 to n do if A[i]>0 then if min > A[i] then begin min:=A[i]; //можно и сам элемент найти nomer:=i; end; WriteLn; Write('Номер наименьшего положительного элемента = ',nomer); end. |
Написать программу вычисления суммы последовательно вводимых чисел с окончанием по вводу признака конца.
Написать программу нахождения минимального значения из всех положительных в последовательности N произвольных вещественных вводимых чисел.
program Min; var i,n:integer; a,min:real; begin write('Введите кол-во чисел: '); readln(n); min:=-1; for i:=1 to n do begin write('Введите ',i,'-е число: '); readln(a); if (a>0) and ((i=1) or (a < min)) then min:=a; end; if min < 0 then writeln('Положительный чисел нет') else writeln('Минимальное значение ',min); end.
Написать программу вычисления среднеарифметического только отрицательных чисел среди произвольных целых вводимых чисел с окончанием по вводу признака конца.
Написать программу нахождения разности номеров первого и второго отрицательных значений в последовательности N вводимых вещественных чисел.
Написать программу нахождения максимального отрицательного значения в последовательности N вводимых произвольных (как положительных, так и отрицательных) вещественных чисел.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
uses crt; var c,max,pk: real; n,ko,nmax: integer;
begin write('Укажите признак конца (любое число): '); readln(pk); repeat inc(n); write('-->'); readln(c); if (ko=0) and (c<0) and (c<>pk) then begin max:=c; nmax:=n; ko:=1; end else if (ko>0) and (c<0) and (c>max) and (c<>pk) then begin max:=c; nmax:=n; end; until c=pk; if ko=0 then writeln('Нет отрицательных чисел') else writeln('Максимальное отрицательное =',max:0:3,' под номером ',nmax); readln; end. |
Написать программу нахождения номера максимального отрицательного значения в последовательности произвольных целых вводимых чисел с окончанием выбора по вводу признака конца.
Написать программу вычисления среднеарифметического последовательно вводимых целых чисел, пропуская отрицательные, с окончанием по вводу признака конца.
Написать программу нахождения разности номеров максимального и минимального нечетных значений в последовательности N вводимых чисел
Написать программу вычисления произведения последовательно вводимых чисел для заданного количества чисел, пропуская числа меньшие по модулю чем 0.1.
Написать программу нахождения номера наибольшего четного положительного элемента в последовательности N произвольных чисел, вводимых с клавиатуры.
Написать программу нахождения максимального отрицательного нечетного значения в последовательности N вводимых произвольных (как положительных, так и отрицательных) чисел.
Написать программу нахождения номера минимального положительного значения в последовательности вводимых вещественных чисел с окончанием по вводу признака конца.
var a1, a2: integer; b1, b2: real; begin a1:=0; a2:=0; repeat write('Ввод числа (<=0 выход): '); readln(b1); if b1 <= 0 then break; if a=0 then b2 := b1 else if b1<b2 then begin b2:=b1; a2:=a1; end; until false; if b2>0 then writeln('Число #'+inttostr(a2)) else writeln('Нет числа'); readln; end;
Написать программу нахождения номера минимального положительного значения в последовательности вводимых вещественных чисел с окончанием по вводу признака конца.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
var a,i,min,otv:longint; begin i:=1; a:=1; min:=0; otv:=1; while(a<>0) do{0- символ конца ввода} begin readln(a); if(a>0)and((min>a)or(min=0)) then{а положительное и, или min=0, так как мы его ещё не заполнинили или новое число меньше чем min} begin min:=a;{запоминаем минимум и место} otv:=i; end; i:=i+1; end; writeln(otv); end. |
Написать программу нахождения номера максимального значения в последовательности вещественных вводимых чисел с окончанием по вводу признака конца.
Написать программу вычисления среднего значения только положительных элементов среди вводимых N вещественных чисел.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
var rez, a: real; n, i: integer;
begin write('Введите количество элементов последовательности: '); read(n); rez:=1; for i := 1 to n do begin write(i, ' элемент = '); read(a); if a < 0 then rez := rez * a; end; writeln('Произведение чисел меньших "0" = ', rez); readln end.
Написать программу вычисления произведения только чисел больших "0" из N последовательно вводимых произвольных целых чисел.
|
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
var rez, a: real; n, i: integer;
begin write('Введите количество элементов последовательности: '); read(n); rez:=1; for i := 1 to n do begin write(i, ' элемент = '); read(a); if a < 0 then rez := rez * a; end; writeln('Произведение чисел меньших "0" = ', rez); readln end.
|
Написать программу нахождения номера наименьшего отрицательного элемента в последовательности N произвольных вещественных чисел, вводимых с клавиатуры.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
program ex; uses crt; Type Tindex=1..100; Tvector=array [tindex] of real; var i,n,poz:tindex; min:real; a:Tvector; begin clrscr; writeln('введите количество елементов'); readln(n); for i:=1 to n do begin write('a[',i,']= '); readln(a[i]); end; {ввод последовательности} for i:=1 to n do writeln(a[i],' ');{вывод последовательности на экран} min:=a[1]; poz:=1; for i:=2 to n do begin If a[i]<0 then begin if a[i]<min then begin min:=a[i]; poz:=i; end;{поиск минимального элемента, и его номер} end; end; writeln('позиция минимального элемента',poz); end.
|
Написать программу нахождения минимального значения больше нуля в последовательности вводимых целых чисел c окончанием по вводу числа "0".
|
1 2 3 4 5 6 7 8 9 10 11 12 |
var min,a:longint; begin read(a); min:=a; while(a<>0) do begin if((min>a)and(a>0)) then min:=a; read(a); end; writeln(min); end. |
Написать программу вычисления среднеарифметического значения только отрицательных элементов среди вводимых N произвольных целых чисел.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
var s:real;n,cnt,i,d:integer; begin writeln('Vvedite n'); readln(n); s:=0; cnt:=0; writeln('Vvedite n elementov cherez probel'); for i:=1 to n do begin read(d); if d<0 then begin inc(cnt); s:=s+d; end; end; if cnt<>0 then writeln(s/cnt:0:4) else writeln('Net elementov <0'); end. |
Написать программу вычисления произведения последовательно вводимых вещественных чисел с окончанием, когда абсолютная величина произведения станет > 1000. Ноль пропускать.
Написать программу вычисления номера последнего отрицательного числа из последовательно вводимых произвольных вещественных чисел заданного количества.
Написать программу вычисления номера первого отрицательного числа из последовательно вводимых вещественных чисел. Если "0" не встретился, закончить по вводу признака конца.
Написать программу подсчета количества положительных и отрицательных вещественных чисел, с окончанием по вводу признака конца (которое не считать числом).
program poschet; Var pol,Otr: Integer; a: Real; Begin Otr:=0; Pol:=0; while a<>'' do begin Write('Введите число'); ReadLn a; if a>=0 then Pol:=Pol+1 else Otr:=Otr+1; end; WriteLn('положительных чисел ',Pol); WriteLn('отрицательных чисел ',Otr); end;