Он выдерживает предметы на себе
Ответ:
Код к задаче: «Из слова ТЕСТИРОВАНИЕ сделать слово ТОВАР»
1.var s:string;
2.begin
3.s:='ТЕСТИРОВАНИЕ';
4.delete(s,1,2);
5.delete(s,5,2);
6.writeln(s);
7.readln
8.end.
Объяснение:
Var
i,count:integer;
h: array [1..20] of integer;
begin
count:=0;
writeln('Введите элементы');
for i:=1 to 20 do
read(h[i]);
for i:=1 to 20 do
if h[i]>0 then
count:=count+1;
writeln('Количество нулевых элементов ', count)
end.