var a, b, c, i, j, n, ch:integer; s, p:array [1..10000] of integer; begin n:=30; for i:=1 to n do s[i]:=random(64000)-32000; writeln('Данный массив'); for i:=1 to n do write (s[i],' '); a:=s[1]; for i:=1 to n do if s[i]>a then a:=s[i]; for i:=1 to n do if s[i]=a then begin j:=j+1; p[j]:=i; end; c:=j; writeln; writeln('Полученный массив'); for i:=1 to n do begin ch:=0; for j:=1 to c do if i=p[j] then inc(ch); if ch=0 then write (s[i],' '); end; end. P.S. Надеюсь на благодарность и лучший ответ.
алг нач цел a, sum, pro вывод 'Введите трёхзначное положительное число: ' ввод a если a<100 или a>999 то вывод 'Это не трёхзначное число. Перезапустите программу!' иначе sum := mod(a, 10) + mod(div(a,10),10) + div(a,100) pro := mod(a, 10) * mod(div(a,10),10) * div(a,100) если sum > 9 и sum < 100 то вывод 'Сумма цифр числа ',a,' - двухзначное число (',sum,')', нс иначе вывод 'Сумма цифр числа ',a,' - не двухзначное число (',sum,')', нс все если pro > 99 и pro < 1000 то вывод 'Произведение цифр числа ',a,' - трёхзначное число (',pro,')', нс иначе вывод 'Произведение цифр числа ',a,' - не трёхзначное число (',pro,')', нс все если mod(sum, 3) = 0 то вывод 'Эта же сумма (',sum,') кратна трём', нс иначе вывод 'Эта сумма (',sum,') не кратна трём', нс все все кон
№ 1 Китайский язык.Он является официальным языком Китайской Народной Республики,Тайваня и Сингапура. Во всём мире на нём говорят свыше 1,3 млрд человек и поэтому он занимает первую строчку в списке самых распространенных языков мира.
Китайский язык считается наиболее сложным языком в мире,он входит в шестерку официальных языков
№ 2 Английский язык, самый распространенный язык в мире по количеству стран, которые он охватывает - 106 стран. Официальным и основным языком английский является в Великобритании. В таких странах как Индия, Ирландия, Новая Зеландия, Канада и Филиппины английский используют как официальный, но помимо него есть еще и свои официальные языки.
№ 3 Хинди,на нем говорят в Индии, Непале, Бангладеш и Пакистане.
Многие предсказывают, что в скором времени Хинди станет языком с самым большим количеством носителей в мире, и опередит Китай, но когда это произойдет и вообще произойдет ли, остается неизвестным.
№ 4 Испанский язык.На испанском говорят в 31 стране мира. Возник испанский язык в Испании в средневековье и распространился по миру во времена Великих географических открытий. Испанский язык является официальным языком международных организаций: Организация Объединённых Наций , Евросоюз, Союз южноамериканских наций и др.
№ 5 Арабский язык.На арабском языке говорят в 58 странах мира. Наибольшее число носителей арабского сосредоточено в Саудовской Аравии, Ираке, Кувейте, Сирии, Ливане, Иордании и Египте.
Арабский язык распространяется по миру еще и благодаря главной книге мусульман - Корану. Арабский стал шестым официальным языком в 1974 году.
№ 6 Русский - 250 млн.носителей.На русском языке говорят в 17 странах мира. Русский — официальный язык России, Казахстана, Беларуси, Кыргызстана и Таджикистана. Широко распространён на Украине, в Латвии и Эстонии. В меньшей степени в странах, входивших в состав Советского Союза.
Русский язык является одним из шести официальных языков Организации Объединённых Наций,самым распространенным языком в Европе и самым распространенным славянским языком в мире.
s, p:array [1..10000] of integer;
begin
n:=30;
for i:=1 to n do
s[i]:=random(64000)-32000;
writeln('Данный массив');
for i:=1 to n do
write (s[i],' ');
a:=s[1];
for i:=1 to n do
if s[i]>a then
a:=s[i];
for i:=1 to n do
if s[i]=a then
begin
j:=j+1;
p[j]:=i;
end;
c:=j;
writeln;
writeln('Полученный массив');
for i:=1 to n do
begin
ch:=0;
for j:=1 to c do
if i=p[j] then inc(ch);
if ch=0 then write (s[i],' ');
end;
end.
P.S. Надеюсь на благодарность и лучший ответ.