program mas_krat_3i5;
const n=15;
var
a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
a[i]:=random(101);
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do
if (a[i]mod 3 =0)and(a[i]mod 5 =0)
then
write(i,' ');
readln;
end.
Китайский язык действительно набирает популярность и оказывается нужен очень многим людям, работающим в области бизнеса, международной торговли и отношений. Владение этим языком откроет для вас новые горизонты, возможность жить, учиться в одной из самых развитых стран Азии, а также вести бизнес с китайскими партнерами.
Также Китай является официальным языком на материке Китай, Гонконг, Макао, Тайвань и Сингапур, но говорят по всей Азии, Европе и Америке в китайских общинах.
Это означает, что даже за пределами Китая вы все равно сможете найти кого-то для практики, независимо от того, живете ли вы в Азии или в небольшом городе в США.
Английский язык так популярен из-за нескольких причин:
Культурно-социальные причины. Никак нельзя отрицать тот факт, что американский кинематограф и музыка стали популярны во всем мире. Практически каждый современный человек посещает кинотеатры и смотрит голливудские фильмы. Не стоит забывать и про музыку. Практически все мировые исполнители сочиняют свои песни на английском языке. Фанаты, естественно, стремятся понимать их тексты, а значит, начинают изучать слова, повышая знания в английском языке.
Экономическо-политические причины. На мировой политической и экономической арене появилась такая держава, как Соединенные Штаты Америки. Английский язык постепенно стал движущей силой прогресса во всем мире и практически единственным обмениваться информацией.
Объяснение:
const Sz = 50; // Размер массива
var
a: array [1..Sz] of integer;
size: integer; // Количество элементов в массиве
i: integer;
begin
//Заполнение случайными числами
size := 20;
for i:=1 to size do
a[i] := Random(100);
writeln('Элементы массива: ');
for i:=1 to size do
write(a[i],' ');
//Находим числа кратные 3 и 5
writeln('Номера элементов кратных 3-м: ');
for i:=1 to size do
if (a[i] mod 3) = 0 then
write(a[i],' ');
writeln('Номера элементов кратные 5-ти: ');
for i:=1 to size do
if (a[i] mod 5) = 0 then
write(a[i],' ');
end.