Var a:array[1..200] of real; n,k1,k2,k3,i:integer; begin randomize; writeln ('Введи размер массива'); readln (n); for i:=1 to n do begin a[i]:=21*random-10; if a[i]>0 then inc(k1) else if a[i]<0 then inc(k2) else inc(k3); write (a[i]:4); end; writeln ('Положительных=',k1); writeln ('отлицательных=',k2); writeln ('нулевых=',k3); end.
// PascalABC.NET 3.0, сборка 1073 var c:char; begin Write('Введите римскую цифру (I,V,X,L,C,D,M): '); Readln(c); case c of 'I':Writeln('1'); 'V':Writeln('5'); 'X':Writeln('10'); 'L':Writeln('50'); 'C':Writeln('100'); 'D':Writeln('500'); 'M':Writeln('1000'); else Writeln('Вы ошиблись') end end.
n,k1,k2,k3,i:integer;
begin
randomize;
writeln ('Введи размер массива');
readln (n);
for i:=1 to n do
begin
a[i]:=21*random-10;
if a[i]>0 then inc(k1)
else if a[i]<0 then inc(k2)
else inc(k3);
write (a[i]:4);
end;
writeln ('Положительных=',k1);
writeln ('отлицательных=',k2);
writeln ('нулевых=',k3);
end.