Информатика(паскаль) даны два действительных числа. найти среднее арифметическое этих чисел и среднее их модулей.

PascalABC.NET 3.4.2, сборка 1861 от 09.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var (a, b) := ReadReal2('Введите два числа:');

 Println('Ср.арифметическое', (a + b) / 2);

 Println('Ср.геометрическое модулей', Sqrt(Abs(a * b)));

end.

Введите два числа: -56.32 138Ср.арифметическое 40.84 Ср.геометрическое модулей 88.1598548093178

var a,b:integer;

c,d:real;

begin

a:=random(50); // Если нужно вводить своё число, то тогда "a:= *заданное число*" или, иначе, readln(a) "

writeln('Число "a" приняло значение ', a); // Если будет один из двух показанных выше, то эта строка не является обязательной.

b:=random(100); // Если нужно вводить своё число, то тогда "b:= *заданное число*" или, иначе, readln(b) "

writeln('Число "b" приняло значение ', b); // Если будет один из двух выше, то эта строка не является обязательной.

c:=((a+b)/2);

writeln('Среднее арифметическое данных двух чисел ', c);

d:=(sqrt(abs(a*b)));

writeln('Среднее геометрическое данных чисел ', d);

end.

Интернет стал предметом первой необходимости. В немможно совершать покупки, общаться с друзьями, получатьобразование, работать. Возможности Интернета стали практически безграничными.

Говорят, без еды человек может прожить примерно 2 месяца (если будет пить), без воды человек погибает через 5-7 дней, а можно ли прожить без интернета??? Вы представляли когда-нибудь мир без Интернета?

Недавно, люди жили без великого творения - Интернет. Остается только удивляться: как? В последние годы, из информационного ресурса, Интернет превратился в незаменимую и очень важную часть нашей жизни. Работа, учёба, общение — всё связано с Всемирной Паутиной. Сеть перестала быть источником информации — теперь это поставщик услуг: увеселительных, образовательных.… Да любых. Чтобы скрасить одинокий вечер люди не идут в парк или кафе, они заходят в Интернет. Они ищут развлечений в электронной системе, а не среди живых людей.

Program n1;
Uses Crt;
Var
c: array[1..1000] of integer;
n, i, null, otric, polozhit :integer;
Begin
   writeln('Razmer massiva = '); Readln(n);

for i:=1 to n do begin
   c[i]:=random(40) - 20;
   write(c[i]:4);
end;

    writeln();

otric:=0; polozhit:=0; null:=0;
for i:=1 to n do  begin
   if (c[i]<0) then otric:=otric+1;
   if (c[i]>0) then polozhit:=polozhit+1;
   if (c[i]=0) then null:=null+1;
end;
   writeln('Kol-vo chisel < 0: ', otric);
   writeln('Kol-vo chisel > 0: ', polozhit);
   writeln('Kol-vo chisel = 0: ', null);
End.