Var x,y,z: real; t: integer; begin writeln('введите х и у'); readln(x,y); z:=sqrt(sqr(x)-sqr(y)); t:=0; while (z>0,1) do begin t:=t+1; z:=0,98*z; {если 2% от изменяющегося расстояния до пола; если же имеется ввиду 2% от исходного расстояния, то нужно будет ввести новую переменную или присвоить исходное значение z, например х, то есть сразу после z:=sqrt(sqr(x)-sqr(y)); написать x:=z; Формула (оператор) z:=0,98*z; изменится так: z:=z-x*0,98} end; writeln('палка упадет через ', t,' мин.'); end.
const n=6; var m,k,i: integer; var a: array[1..n] of integer; begin m:=integer.MinValue; writeln ('Исходный массив'); for i:=1 to n do begin a[i]:=random(20); write (a[i]:3); if a[i]>m then begin m:=a[i]; k:=i; end; end; writeln; writeln ('Наибольший элемент массива: a[',k,'] = ',m); end.
const n=50; var sa: real; i,k: integer; var a: array[1..n] of integer; begin sa:=0; k:=0; writeln ('Исходный массив'); for i:=1 to n do begin a[i]:=random(3); write (a[i]:2); sa:=sa+a[i]; end; sa:=sa/n; writeln; writeln ('Среднее арифметическое = ',sa); writeln; writeln ('Элементы массива, равные среднему арифметическому:'); for i:=1 to n do begin if a[i]=sa then begin writeln ('a[',i,'] = ',a[i]); k:=1; end; end; if k=0 then writeln ('Нет таких элементов'); end.
второй вариант
Объяснение: