1. Countable nouns — Исчисляемые существительные
Countable nouns are used for things which are separate and can be counted, one, two, three, etc. We can use articles and numbers with countable nouns: a baby, four babies. — Исчисляемые существительные используются для вещей, которые являются отдельными и могут быть подсчитаны, один, два, три и т.д. Мы можем использовать артикли и номера с исчисляемыми существительными: ребенок, четыре ребенка.
2. Uncountable nouns — Неисчисляемые существительные
Uncountable nouns are used for things which are a group and can’t be counted. We can’t use a/an or numbers with uncountable nouns: rice not a rice, ten rices. — Неисчисляемые существительные используются для вещей, которые являются группой и не могут быть подсчитаны. Мы не можем использовать неопределенные артикли или цифры с неисчисляемыми существительными: рис не рисинка, десять рисинок.
Mind the trap! – Избегайте ловушки!
Watch out for these uncountable nouns: hair, furniture, accommodation, homework, information, luggage. – Берегитесь этих неисчисляемых существительных: волосы, мебель, жилье, домашнее задания, информация, багаж.
We say: The furniture in my mother’s house is old. — Мы говорим: Мебель в доме моей матери старая.
Some uncountable nouns in English are plural: trousers, jeans, scissors, clothes. — Некоторые неисчисляемые существительные в английском языке множественного числа: брюки, джинсы, ножницы, одежда.
We say: She wears trousers to school. — Мы говорим: Она носит брюки в школу.
Объяснение:
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.