На pascal abc net program test; type realarray = array of real; var step:real; a:realarray; i,n,s1,s2,s3,s4:integer; begin write('Введите количество членов последовательности: '); readln(n); step:=1/n; setlength(a,n); a[0]:=0; for i:=1 to n-1 do a[i]:=a[i-1]+step; for i:=0 to n-1 do begin if a[i]<0.25 then s1:=s1+1; if (a[i]>=0.25) and (a[i]<0.5) then s2:=s2+1; if (a[i]>=0.5) and (a[i]<0.75) then s3:=s3+1; if a[i]>=0.75 then s4:=s4+1; end; writeln('На промежутке [0,0.25) - ',s1); writeln('На промежутке [0.25,0.5) - ',s2); writeln('На промежутке [0.5,0.75) - ',s3); writeln('На промежутке [0.75,1) - ',s4); end.
var a:array[1..4,1..6] of integer; b:array[1..4] of integer; i,i1,max,n,sum:integer; label m1; begin write('Введите елементы массива: '); for i:=1 to 4 do begin for i1:=1 to 6 do begin write('a[',i,',',i1,'] = '); readln(a[i,i1]); end; end; for i:=1 to 4 do begin for i1:=1 to 6 do begin if i+i1 = 2 then max:=a[1,1] else if a[i,i1]>max then max:=a[i,i1] else max:=max; end; end; m1: write('Введите число (не больше ',max,') : '); readln(n); if n<=max then begin for i:=1 to 4 do begin for i1:=1 to 6 do begin if a[i,i1]>n then sum:=sum+1; end; b[i]:=sum; writeln('b[',i,'] = ',b[i]); sum:=0; end; end else begin writeln('Число больше максимального значения массива, поробуйте снова'); goto m1; end; end.
