07.11.2007, 22:03
общий
это ответ
Здравствуйте, Lifestyle!
Смотрите коды программ в приложении.
Приложение:
{108453_1}uses crt;var B:array[1..10]of integer; i,A,S:integer;begin clrscr; randomize; write(‘введите натуральное число A=‘); readln(A); for i:=1to 10 do begin B[i]:=1+random(10); if B[i]>A then S:=s+B[i]; write(B[i]:3); end; writeln; write(‘сумма чисел больше ‘,A,‘ =‘,S); readln;end.{108453_2}uses crt;var B:array[1..10]of real; i:integer; denominator:real;begin clrscr; randomize; for i:=1to 10 do begin B[i]:=1+random(10); write(B[i]:7:3); end; denominator:=B[1]; writeln; for i:=1to 10do begin B[i]:=B[i]/denominator; write(B[i]:7:3); end; readln;end.{108453_3}uses crt;var B:array[1..10]of integer; i,counter,S:integer;begin clrscr; randomize; S:=0; for i:=1to 10 do begin B[i]:=-10+random(21); write(B[i]:4); if B[i]>0 then begin S:=S+B[i]; counter:=counter+1; end; end; writeln; write(‘среднее арифметическое положительных элементов =‘,S/counter:3:3); readlnend.{108453_4a}uses crt;var B:array[1..10]of integer; i,P:integer;begin clrscr; randomize; P:=1; for i:=1to 10do begin B[i]:=1+random(10); write(B[i]:3); end; writeln; for i:=0to 4do begin P:=P*B[10-i]; end; write(‘произведение последних пяти элементов =‘,P); readln;end.{108453_4b}uses crt;var B:array[1..10]of integer; i,P:integer;begin clrscr; randomize; P:=1; for i:=1to 10do begin B[i]:=1+random(10); write(B[i]:3); end; writeln; for i:=1to 5do begin P:=P*B[i]; end; write(‘произведение первых пяти элементов =‘,P); readln;end.{108453_5}uses crt;var B:array[1..10]of integer; i,max:integer;begin clrscr; randomize; max:=0; for i:=1to 10do begin B[i]:=1+random(10); write(B[i]:3); end; writeln; max:=B[1]; for i:=1to 10do begin if B[i]>=max then max:=B[i]; end; write(‘максимальный элемент маасива =‘,max); readln;end.{108453_6}uses crt;var B:array[1..10]of integer; i,S:integer;begin clrscr; randomize; for i:=1to 10do begin B[i]:=1+random(10); write(B[i]:3); if i mod 2 = 0 then S:=S+B[i]; end; writeln; write(‘сумма четных элементов =‘,S); readln;end.{108453_7}uses crt;var X:array[1..10]of real; A:array[1..10]of integer; i:integer;begin clrscr; randomize; for i:=1to 10do begin X[i]:=1+random(10); write(X[i]:7:3); end; writeln; for i:=1to 10do begin A[i]:=trunc(X[i]); write(A[i]:7); end; readln;end.{108453_8}uses crt;var A,B:array[1..10]of integer; i,j:integer;begin clrscr; randomize; j:=1; for i:=1to 10do begin A[i]:=random(11); if A[i]=0 then begin textcolor(lightgreen); write(A[i]:3); B[j]:=i; j:=j+1; end else begin textcolor(white); write(A[i]:3); end end; writeln; textcolor(white); write(‘номера нулевых элементов :‘); for i:=1to j-1 do begin write(B[i]:3); if i=j-1 then write(‘.‘) else write(‘,‘) end; readln;end.