Program asd; Var A,B:array [1..250,1..250] of integer; i,j,n,m,k: integer; BEGIN Write('Введите n: '); Readln(n); Write('Введите m: '); Readln(m); for i:= 1 to n do begin for j:= 1 to m do begin A[i,j]:=random(10); write(A[i,j]:3); end; writeln; end; writeln; for i:= 1 to n do for j:= 1 to m do begin If A[i,j] mod 2=1 then inc(k); end; If n=m then begin Writeln('Транспонирование: '); for i:=1 to n do begin for j:=1 to m do begin write(A[j,i]:3); B[i,j]:=A[i,j]; end; writeln; end; writeln; end else Writeln('Кол-во нечетных элементов: ',k); END.
Можно написать о протоколах, которые используются мессенджерами, дать кратенькое описание этих протоколов, серверов, которые используют протоколы. Потом нужно упомянуть шифрования сообщений, на каком уровне они используются (на уровне месс, сервера или к-л. другом). Отдельно можно написать о самом популярном месс. - о скайпе. Ну, и в конце, о всяких наворотах, которыми обрастают месс., наприм. у мэйл-агента - встроенные игры, поддержка веб-камер, или, допусчтим, темы интерфейсов, поддержка офлайн-сообщений... Вот, как-то так.
Var A,B:array [1..250,1..250] of integer;
i,j,n,m,k: integer;
BEGIN
Write('Введите n: '); Readln(n);
Write('Введите m: '); Readln(m);
for i:= 1 to n do
begin
for j:= 1 to m do
begin
A[i,j]:=random(10);
write(A[i,j]:3);
end;
writeln;
end;
writeln;
for i:= 1 to n do
for j:= 1 to m do
begin
If A[i,j] mod 2=1 then inc(k);
end;
If n=m then
begin
Writeln('Транспонирование: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(A[j,i]:3);
B[i,j]:=A[i,j];
end;
writeln;
end; writeln;
end
else
Writeln('Кол-во нечетных элементов: ',k);
END.