1) с клавиатуры вводится число n, за ним - массив из nцелых чисел и число х.найдите количество элементов массива, значения которых равны х*х. 2)массив целых вводится с клавиатуры до нуля.ноль при этом не учмтывается.посчитайте количество отрицательных чисел в массиве. 3)массив действительных чисел вводится с клавиатуры до нуля, при этом ноль не учитывается.напишите функцию, которая будет возвращать среднее значение элементов массива, в основной программе выведите это число. 4)с клавиатуры вводится число n-количество строк в треугольнике.затем оно передаётся в поцедуру, которая должна вывести на экран, например при n=4, следующую картинку: 1 1 2 1 2 3 1 2 3 4 (все программы надо решить на языке паскаля)

Program chik; var a: array[1..1000]of integer; h,i,n,x: integer; begin read(n); h: =0; for i: =1 to n do begin read(a[i]); end; read(x); for i: =1 to n do begin if(a[i]=x*x)then h: =h+1; end; write(h); end. 2) program chik2; var a,h: integer; begin a: =5; h: =0; while a< > 0 do begin read(a); if(a< 0)then h: =h+1; end; write(h); end. 3)program chik3; var a,h,s,p: real; begin a: =5; h: =0; while a< > 0 do begin read(a); s: =s+a; h: =h+1; end; p: =s/h; write(p); end. 4)program chik4; var n,j,i: longint; begin read(n); for i: =1 to n do begin for j: =1 to i do begin write(j,' '); end; writeln; end; end.   удачи!

                                    "я прихожу в бешенство от одной мысли о том,                                                сколько бы я всего узнал, если бы не ходил в школу".                                                                                              (бернард шоу)     как все тела состоят из молекул, так и изображение в компьютере состоит из цветных точек - пикселей. пиксель (pixel - от . picture element, элемент изображения). молекулы, в свою очередь, состоят из атомов, а пиксели - из композиции цветов. но для ответа на поставленный вопрос рассматривать устройство пикселя нам не нужно.     главное в изображении - количество пикселей, его составляющее. чем больше пикселей, тем подробнее изображение. но должен быть какой-то разумный предел. и он действительно есть. договорились, что для печати фотографии она должна содержать в каждом дюйме по ширине или длине ровно 300 пикселей. дюймы, а не миллиметры, например, - это потому, что придумали такой стандарт в сша, где до сих пор в ходу единица длины "дюйм". в 1 дюйме примерно 25.4 мм, и 300 пикселей на 25.4 "по-хорошему" (т.ею нацело) не разделятся. поэтому и дальше будем использовать в рассуждениях дюймы.     итак, 300 пикселей на дюйм. это длинно писать, поэтому обычно используют сокращение, говоря, что плотность изображения составляет 300 dpi (dpi - dots per inch, точек на дюйм). пусть у нас есть фотография размером 5х7 дюймов (это примерно формат 13х18 см). тогда изображение при 300 dpi содержит по длине 7×300=2100 пикселей, а по ширине 5×300=1500 пикселей. всего же пикселей будет 2100×1500=3 150 000.     теперь пусть мы хотим уменьшить размер изображения вдвое на каждую сторону. у нас получится размер 2.5×3.5 дюйма, изображение при этих же 300 dpi содержит по длине 3.5×300=1050 пикселей, а по ширине 2.5×300=750 пикселей. всего же пикселей будет 1050×750=787 500. пикселей в изображении стало в 4 раза меньше! куда же делись "лишние" 2 362 500 пикселей? а никуда - мы их просто отбросили, места в новом, уменьшенном изображении им нет.     рассмотрим противоположный вариант: мы хотим не уменьшить фотографию, а увеличить. пусть так же вдвое на сторону. вдвое по длине, вдвое по ширине. значит, пикселей понадобится 3 150 000 × 4 = 12 600 000. т.е. надо откуда-то взять еще 9 450 000 пикселей! а неоткуда их взять! разные компьютерные программы их в этом случае придумывают, причем, часто по-разному. но понятно, что к реальному изображению эти выдуманные точки имеют чисто условное отношение.     и третий вариант, самый плохой. это если мы сначала уменьшим изображение в два раза на сторону, а потом из него сделаем изображение размера вдвое большего, чем исходное. т.е. из 787 500 пикселей получим 12 600 000. тут уже компьютеру придется "придумать" 11 8212 500 пикселей!         мы видим, что при уменьшении изображения полезные пиксели приходится выбрасывать, а при увеличении - "придумывать" новые пиксели. и то и другое, конечно же, не прибавляет изображению качества.

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n='),1,50); a.println;   var b: =arrrandom(readinteger('m='),1,50); b.println;   var p: =b.findindex(x-> x=a.max)+1;   if p> 0 then writeln('искомый элемент равен ',p)   else writeln('элемент не найден') end. пример n= 10 37 50 6 5 5 8 5 37 26 31 m= 15 25 31 28 44 16 30 29 3 40 24 50 12 12 32 5 искомый элемент равен 11