Ответ(ы) на вопрос:
ГостьVar
A:array[1..50] of integer;
i,N,m:integer;
Begin
Write('N = ');
ReadLn(N);
For i:= 1 to N do
Read(A[i]);
m:=A[N];
For i:=1 to N-1 do
if A[i]
Не нашли ответ?
Похожие вопросы