Даны три одномерных массива. упорядочить их по возрастанию элементов. составить программу проверки, сколько раз повторяется заданное число в каждом массиве. результаты
сохранить в одномерном массиве и элементы массива отсортировать по возрастанию даны три одномерных массива. упорядочить их по возрастанию элементов. составить
программу проверки, сколько раз повторяется заданное число в каждом массиве. результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию

Псу шарику подарили шарик. котёнок пушок поймал пушок. жеребёнок ветер мчался,как ветер. витя воробьёв увидел гнездо воробьёв. названия городов,стран,улиц,фамилий,имена,клички животных- это  всё пишется с заглавной буквы.

Программа рассчитана на то, что на экран выводится самый последний массив с результатами. uses crt; const p=5; r=5; s=5; var a: array[1..p] of integer; b: array[1..r] of integer; c: array[1..s] of integer; m: array[1..3] of integer; k,l,i,g,j,d,v,n: integer; begin readln(l);   writeln;   for i: =1 to p do readln(a[i]);     writeln;     for j: =1 to r do readln(b[j]);         writeln;         for g: =1 to s do readln(c[g]);         writeln;         for i: =1 to p-1 do repeat d: =0; if a[i]> a[i+1] then begin d: =1; a[i]: =a[i]+a[i+1]; a[i+1]: =a[i]-a[i+1]; a[i]: =a[i]-a[i+1]; end; until d=0; for j: =1 to r-1 do repeat d: =0; if b[j]> b[j+1] then begin d: =1; b[j]: =b[j]+b[j+1]; b[j+1]: =b[j]-b[j+1]; b[j]: =b[j]-b[j+1]; end; until d=0; for g: =1 to s-1 do repeat d: =0; if c[g]> c[g+1] then begin d: =1; c[g]: =c[g]+c[g+1]; c[g+1]: =c[g]-c[g+1]; c[g]: =c[g]-c[g+1]; end; until d=0; for i: =1 to p do if a[i]=l then inc(v); m[1]: =v; v: =0; for j: =1 to r do if b[j]=l then inc(v); m[2]: =v; v: =0; for g: =1 to s do if c[g]=l then inc(v); m[3]: =v; for n: =1 to 2 do repeat d: =0; if m[n]> m[n+1] then begin d: =1; m[n]: =m[n]+m[n+1]; m[n+1]: =m[n]-m[n+1]; m[n]: =m[n]-m[n+1]; end; until d=0; for n: =1 to 3 do writeln(m[n]); end.

Из-за того что
1.или операционная система старая
2.или мало памяти
3.в программе вирус и система не позволяет скачать программу

Рота--пота--пока--полк

Первое знакомство с вирусом у меня был лет 8 назад.У меня тогда был более менее для тогдашнего времени мощный компьютер.Интернетом пользовались только для обмена файлами а для компьютерных игр приходилось покупать CD диски на котором была записан та или иная игра.Такие диски были дорогой роскошью.Ребята в основном обменивались между собой играми.Антивирусами тогда никто не пользовался.Все думали зачем он им нужен, говорили что только зря компьютер нагружают и вирусом на компе в котором не использовался интернет быть не может.Однажды когда я играл в свою любимую игру вдруг она вылетела, я подумал что это ерунда и перезапустил игру, но она вновь вылетела.Ни одна игра на пк не запускался система была забита непонятными задачами и я установил антивирус.Он нашел в моем компе внимание 82 ВИРУСА.Вылечить эти файлы не удалось и пришлось удалять вместе с сохраняниями в играх.Мой комп 13% составлял из вирусов и без переустановки windows не обошлось.Так я в первые на себе увидел компьютерных "паразитов"