А) uses crt;
const n=10;
var a:array[1..n] of integer;
i,sum:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
if a[i]>0 then sum:=sum+a[i];
end;
writeln;
writeln('Сумма положительных элементов = ',sum);
end.
Program Pascal;
var a,b:integer;
begin
writeln('Введите два числа : ');
readln(a,b);
writeln('Сумма этих чисел равна ',a+b,' ');
writeln('Произведение этих чисел равно ',a*b,' ');
writeln('Разность этих чисел равна ',a-b,' ');
end.
Var d,m,dr: string;
<span> mes: array[1..12] of string=('января','февраля','марта',
</span><span> 'апреля','мая','июня','июля','августа','сентября',
</span><span> 'октября','ноября','декабря');
</span><span>begin
</span><span> write('дата рождения в формате dd.mm.gg: ');
</span><span> readln(dr);
</span><span> d:=copy(dr,1,2);
</span><span> m:=copy(dr,4,2);
</span><span> writeln(StrToInt(d),' ',mes[StrToInt(m)]);
</span><span>end.
</span>
дата рождения в формате dd.mm.gg : 05.08.2001
<span>5 августа
</span>