1) с клавиатуры вводится число n,за ним - массив из nцелых чисел и число х.Найдите количество элементов массива,значения которых равны х*х. 2)Массив целых вводится с клавиатуры до нуля.Ноль при этом не учмтывается.Посчитайте ко...
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.
УДАЧИ!
Не нашли ответ?
Похожие вопросы