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

134

397

Посмотреть ответы 2

Ответы на вопрос:

Denze111

Информатика

4,4(56 оценок)

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. удачи!