Uses crt; var a:array[1..6] of integer; i:integer; begin for i:=1 to 6 do readln(a[i]); writeln; for i:=3 to 5 do a[i]:=a[i+1]; a[6]:=0; for i:=1 to 5 do writeln(a[i]); end.
Это, конечно, ужасный вариант с "много Copy", но если надо ... Program primer4; var s:string; i,k:integer; begin writeln('подсчет количества глухих согласных в тексте'); writeln('введите текст'); readln(s); k:=0; for i:=1 to length(s) do if (copy(s,i,1)='к')or(copy(s,i,1)='п')or(copy(s,i,1)='с')or (copy(s,i,1)='т')or(copy(s,i,1)='ф')or(copy(s,i,1)='х')or (copy(s,i,1)='ц')or(copy(s,i,1)='ч')or(copy(s,i,1)='ш')or(copy(s,i,1)='щ') then k:=k+1; writeln(k); end.
Пример: подсчет количества глухих согласных в тексте введите текст подсчет количества глухих согласных в тексте 17
var a:array[1..6] of integer;
i:integer;
begin
for i:=1 to 6 do
readln(a[i]);
writeln;
for i:=3 to 5 do
a[i]:=a[i+1];
a[6]:=0;
for i:=1 to 5 do
writeln(a[i]);
end.