var
a: array of real;
size, i: integer;
average: real;
begin
randomize;
write('Размер массива: ');
readln(size);
SetLength(a, size);
average := 0;
writeln(' *** Сгенерированный массив *** ');
for i := 0 to size - 1 do
begin
a[i] := random(20);
write(' ', a[i]);
if Odd(i) = false then average := average + a[i];
end;
average := average / trunc((size + 1) / 2);
writeln(#13 + 'Среднее арифметическое = ', average);
writeln(' *** Новый массив ***');
for i := 0 to size - 1 do
begin
if Odd(i) = true then a[i] := average;
if Frac(a[i]) = 0 then write(' ', a[i])
else write(' ', a[i]:0:1);
end;
end.
program Fizika;
uses crt;
var NUM,a,b,c,d,e,i,f,g,h,j,k,r,t:integer;
begin
clrscr;
writeln('Введите число №1:');
readln (a);
writeln('Введите число №2:');
readln (b);
writeln ('1) Швидкість');
writeln ('2) Шлях');
writeln ('3) Час ');
writeln ('4) Густина ');
writeln ('5) Маса ');
writeln ('6) Обєм ');
writeln ('7) Висота ');
writeln ('8) Площа ');
writeln ('9) Сила тяжіння');
writeln ('10) Маса ');
writeln ('11) Прискорення вільного падіння ');
writeln('Введите число от 1 до 11:');
readln (NUM);
c:=a div b;
d:=c*b;
e:=d div c;
i:=a div b;
f:=i*b;
g:=f div i;
h:=a div b;
j:=a div h;
k:=a*b;
r:=k div b;
t:=k div r;
case NUM of
1:writeln ('Швидкість дорівнює:', c, ' м/с');
2:writeln ('Шлях дорівнює:', d, 'м');
3:writeln ('Час дорівнює:', e, 'c');
4:writeln ('Густина дорівнює:', i, 'кг/м3');
5:writeln ('Маса дорівнює:', f, 'кг');
6:writeln ('Обєм дорівнює:', g,'м3');
7:writeln ('Висота дорівнює:', h,'м');
8:writeln ('Площа дорівнює:', j, 'м2');
9:writeln ('Сила тяжіння дорівнює:', k ,'Н');
10:writeln ('Маса дорівнює:', r, 'кг');
11:writeln ('Прискорення вільного падіння дорівнює:', t,'Н/кг');
end;
end.