Uses Crt; const n=15; var a:array[1..n] of integer; i,j,k,t:integer; found:boolean; begin ClrScr; Randomize; Writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=Random(90)+1; Write(a[i],' ') end; Writeln; i:=n; found:=False; repeat found:=(a[i] mod 2=0); if (not found) then Dec(i) until found or (i=0); if found then begin for i:=i to n-1 do a[i]:=a[i+1]; Writeln('Результирующий массив:'); for i:=1 to n-1 do Write(a[i],' ') end; ReadKey end. Тестовое решение: Исходный массив: 60 90 39 83 24 70 82 53 45 5 12 9 85 57 47 Результирующий массив: 60 90 39 83 24 70 82 53 45 5 9 85 57 47
Uses Crt; const pi=3.14159; var x,y,h,max,min,d:real; begin ClrScr; max:=-100; min:=100; x:=0; h:=1.1; while x<=11+h/2 do begin y:=x-pi; Writeln(x:10:7,y:12:7); if max<y then max:=y; if min>y then min:=y; x:=x+h; end; d:=abs(max-min); Writeln(d:10:7); ReadKey end.
1. а) 2.в) 3. б) думаю что так