Форма представления информации
Ошибка после условия, цикл будет выполнятся бесконечно, так как переменная a всегда будет a=1. Чтобы исправить это, нужно:
s=s+a
n=n+1
a=a+1
Результат - 10.
uses Crt;
const n=10;
Type Mas=array [1..n] of integer;
var P, M: Mas;
i: integer;
begin
ClrScr;
for i:=1 to n do
P[i]:=10+random(20);
for i:= 1 to n do
Write (P[i]:4);
WriteLn; WriteLn;
for i:=1 to n do
if (i mod 2 = 0) then M[i]:=i*P[i] else M[i]:=-1*P[i];
for i:=1 to n do
Write (M[i]:4);
ReadLn;
end.
Сверху вниз в такой последовательности2,1,3,5,4,6
Источник информации - Я.
Кодирующие устройство - телефон.
Канал Связи - Линия Сотовой связи.
Декодирующее устройство - телефон друга.
Приемник Информации - друг.