1
var a,b:integer;
begin
readln(a,b);
if a>b then
write(a+b);
if b>a then
write(b-a);
if a=b then
write(ab);
end.
2
type mas=Array [1..15] of integer;
var i:integer;
a:mas;
begin
randomize;
for i:=1 to 15
do begin
A[i]:=random(-10,10);
if A[i]<0 then
write(i,' ');
end;
end.
1. b.
2. c.
3. c.
4. b.
<span>А что с 5-м делать надо, не понял?</span>
50-если посчитать все буквы,пробелы и знаки.По кол-во событий 5.
1. Алфавит это русский словарь букв.
Есть такая программа Publisher. туда заходи и там много образцов газет. и просто туда текст вбиваешь. а если не получится то вот