var
a:array[1..12] of integer;
i:integer;
begin
randomize;
writeln('Сгенерированный массив:');
for i := 1 to 12 do
begin
a[i] := random(36) - 15;
write(a[i], ' ');
end;
writeln;
end.
//вторая программа
const
n = 8;
var
a:array[1..n] of integer;
i, count3, count4, count5:integer;
begin
randomize;
writeln('Оценки учеников:');
for i := 1 to n do
begin
a[i] := random(3) + 3;
write(a[i], ' ');
if a[i] = 5 then
inc(count5);
if a[i] = 4 then
inc(count4);
if a[i] = 3 then
inc(count3);
end;
writeln;
writeln('Троек - ', count3);
writeln('Четверок - ', count4);
writeln('Пятерок - ', count5);
end.
//третья программа
var
k:array[1..12] of integer;
i:integer;
begin
randomize;
writeln('Сгенерированный массив:');
for i := 1 to 12 do
begin
k[i] := random(36) - 15;
write(k[i], ' ');
end;
writeln;
writeln('Преобразованный массив:');
for i := 1 to 12 do
begin
k[i] := k[i] * (-1);
write(k[i], ' ');
end;
end.
Программа не доработана,не будет запускаться,очень много ошибок
Program ex16;
var
a,b,x,z,alpha:real;
begin
Write('a,b=');
Read(a,b);
x:=(a+b)/2;
z:=(1+x)/(1+(1+x)/x);
alpha:=a*x*x-cos(b*x)+z/2;
Writeln('x=',x,' z=',z,' alpha=',alpha)
end.
Контрольное решение
Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International
a,b=0.58 -2.4
x=-9.1000000000E-01 z= 9.9878048780E-02 alpha= 1.1057274246E+00
Ответ:
3
Объяснение:
Для десантной техники (Д-6, д-5) 200 метров при отделении от горизонтально летящего самолета (вертолета) на скорости не менее 140 км/ч и задержкой раскрытия ранца 3 секунды
