Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Var
A,B,C:array [1..20] of integer;
n,k,l,i:integer;
begin
writeln(|||Входные данные задачи|||);
write(Введите количество элементов:);
readln(n);
writeln(Массив А:);
for i:=1 to n do;
read(A[i]);
k:=1;
l:=1;
for i:=1 to N do
if i mod 2=0 then begin k:=k+1;
B[k]:=A[i];
end
else l:=l+1;
C[l]:=A[i];
writeln(Массив B с четными элементами:,b[k]);
read(b[k]);
writeln(Массив C с нечетными элементами:,c[l]);
read(c[l]);
writeln;
writeln;
end.
НЕ МОГУ НАЙТИ ОШИБКУ ИСПРАВЬТЕ ПЛИИИЗЗЗЗ!!!!!

Ответ оставил Гость

write(Введите количество элементов:);
вроде writeln