Выпишите ключевые слова прочитанного текста. Мне очень нравятся летние каникулы! Пришло время отдыхать, веселиться и путешествовать.
Этим летом я много гулял с друзьями во дворе и в парке. Мы играли с мячом, прыгали и катались на роликовых коньках. Поскольку лето было очень жарким, мы отправились на реку и каждый вечер плавали с мамой, папой и маленькой сестрой.
К счастью, у меня было достаточно времени для моего любимого занятия - чтения. Я даже взял с собой несколько книг, когда я отправился на побережье с моей бабушкой. И когда я вернулся домой из своего отпуска, в моей комнате был подарок - новый велосипед! Вы не можете себе представить, как долго я об этом мечтал!
Лето - волшебное время, и все мои мечты сбылись этим летом!
Ударные дрели производят слабые, но частые удары с небольшой амплитудой. Их мощности хватит, чтобы пробить кирпич, но на инструмент нужно нажимать. По бетону они малоэффективны. Дрели не рекомендуют использовать для частых работ по бетону и кирпичу.
Перфоратор справится с кирпичом, камнем и армированным бетоном, а некоторые модели могут работать, как отбойный молоток. Энергия и амплитуда ударов высокие, нажимать на инструмент не нужно, он всё делает сам. Перфораторы большие и тяжёлые. Если вы не планируете масштабного ремонта дома, можно ограничиться дрелью.
Объяснение:
type arr=array[1..100] of integer;
var
a:arr;
i,j,k,n:integer;
procedure PrintArr(a:arr;n:integer;s:string);{процедура печати массива}
var
i:integer;
begin
write(s);
write('[');
for i:=1 to n-1 do write(a[i],',');
writeln(a[n],']');
end;
procedure EnterArr(var a:arr;n:integer;s:string);{заполнение массива}
var
i:integer;
begin
write(s);
for i:=1 to n do read(a[i]);
end;
begin
repeat
write('n(1..100)=');
readln(n);
until (n>0) and (n<101);
EnterArr(a,n,'A=');
k:=a[1];
for i:=1 to n do if a[i]<k then k:=a[i];
writeln('Min=',k);
PrintArr(a,n,'A_orig=');
for i:=1 to n do if a[i]=k then a[i]:=i*i;
printArr(a,n,'A_new=');
readln;
end.