Ризики бувають:
щоденні
виправдані
щотижневі
невиправдані
Велосипеди мають бути обладнані:
звуковим сигналом та світловідбивачами
звуковим сигналом та питною водою
питною водою та світловідбивачами
Які поживні речовини містяться у продуктах харчування?
жири
кислоти
білки
вітаміни
нітрати
вуглеводи
Визнач правильну послідовність прийняття зважених рішень.
подумати, зупинитися, прийняти рішення, діяти
зупинитися, подумати, прийняти рішення, діяти
3подумати, прийняти рішення, зупинитися, діяти
ВІЛ передається через:
рукостискання
повітря
кров
укуси комах
від матері до дитини
обійми
Під час пожежі в транспорті необхідно:
голосно кричати
швидко і без паніки вийти із салону
сховатися під сидінням і чекати на до
Невербальне спілкування це:
спілкування поглядом, мімікою, знаками
спілкування на підвищених тонах
спілкування із використанням ненормативної лексики
Якщо Ви почули сирени і переривчасті гудки, потрібно:
увімкнути гучно музику, щоб сирени не заважали
негайно ввімкнути приймач радіотрансляційної мережі або телевізор й уважно слухати інформацію про небезпеку та порядок дій
не нервувати та не звертати увагу на тимчасові незручності
Рухатися по дорозі на велосипедах дозволяється особам, які досягли:
14-річного віку
16-річного віку
18-річного віку
При потраплянні хімічної речовини в очі потрібно:
промити очі водою
випити велику кількість теплої води
протерти очі чистою серветкою
Під час пожежі у транспорті, вибравшись із салону, потрібно:
підійти якомога ближче до місця пожежі, аби не пропустити чогось цікавого
відійти подалі від транспортного засобу
швидше покликати друзів, щоб подивились на пожежу
Объяснение:
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.
