Тема: Поясніть що роблять строки програми
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array[1..20] of integer;
n,i,j,k:integer;
begin
repeat
write('Write rozmer masiva n= ');
readln(n);
until n in [2..20];
writeln('Write elements of mass: ');
for i:=1 to n do // от звідси поясніть що роблять строки,дякую
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln('Mass: ');
for i:=1 to n do
write(a[i],' ');
writeln;
repeat
write('Write element which we must dellete ',n,' k=');
readln(k);
until k in [1..n];
if k<n then
for j:=k to n-1 do
a[j]:=a[j+1];
n:=n-1;
writeln('Result: ',k);
for i:=1 to n do
write(a[i],' ')
readln;
end.Дякую
