Ведите в массив 7 чисел-значений давления,измеренного в миллиметрах ртутного столба. преобразуйте данные значения в значения,измеренные в килопаскалях(1мм.рт.ст. = 0.133кпа).результат вывести на экран через пробел.
Uses crt; const n=7; var a:array[1..n] of real; i:integer; begin for i:=1 to n do read(a[i]); for i:=1 to n do begin a[i]:=a[i]*0.133; write(a[i],' '); end; end.
Const a=5.1; x=3.29; var Y,Z:double; begin Y:=2*exp(4*x)+arctan(x/a); Z:=cos(x*sqr(x))+sqr(sin(x)); Writeln('Y=',Y,', Z=',Z) end.
Результат выполнения программы: Y=1038354.42291114, Z=-0.472433980670957
const m=6; n=8; var a:array[1..m,1..n] of double; b:array[1..m*n] of double; i,j,k,imax,imin:integer; t:double; begin // Инициализация А и формирование В Randomize; Writeln('Исходный массив A'); k:=0; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=10*Random-5; { случайное число на [-5;5] } Write(a[i,j]:8:4); t:=cos(a[i,j]); if (t>=0) and (t<0.5) then begin Inc(k); b[k]:=a[i,j] end end; Writeln end; // Вывод сформированного массива В Writeln('Исходный массив В'); for i:=1 to k do Write(b[i]:8:4); Writeln; // Поиск максимума и минимума с последующим обменом их местами imax:=1; imin:=1; for i:=2 to k do if b[i]<b[imin] then imin:=i else if b[i]>b[imax] then imax:=i; t:=b[imax]; b[imax]:=b[imin]; b[imin]:=t; // Вывод результирующего массива В Writeln('Результирующий массив В'); for i:=1 to k do Write(b[i]:8:4); Writeln end.
const n=7;
var a:array[1..n] of real;
i:integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
a[i]:=a[i]*0.133;
write(a[i],' ');
end;
end.