Program idinah;
var a, b: real;
begin
write('a, b = ');
readln(a,b);
writeln('Среднее арифметическое = ',(a+b)/2);
end.
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);
<span>End.</span>
флешка 400 байт потому что там больше объём
Жил-был Ослик и не было у него друзей, потому что он
был психопатом, мизантропом и вообще сыном Ослицы. Долгими осенними вечерами (
а в жизни ослика была только осень) он читал книгу «Химия прочее<span>» и мечтал кого- нибудь победить
или просто что бы от него все отъ-сь (менты, участковый психиатр,
соседи-слонята и соседи ежата). Однажды ослику приснился сон, что он вовсе не
ослик, а просто проекция пятна на плоскости. В то утро ослик проснулся
совершенно другим осликом. Мир был наполнен красками и пеньем птиц и солнце
светило на маленький столик у кроватки ослика на котором мог бы стоять
компьютер, если бы он у ослика был. </span>