Вопрос по информатике:
СРОЧНО!!!
1). создать одномерный массив x(22) целых чисел из диапазона (-25 +25) найти среднее арифметическое положительных чисел и количество отрицательных, подсчитать число нулевых элементов массива.
2).Создать квадратную матрицу на 16 чисел из диапазона (-12 +12) . Найти сумму элементов 3 столбца, произведение элементов главной диагонали и среднее арифметическое элементов массива.
- 11.10.2017 08:14
- Информатика
- remove_red_eye 11774
- thumb_up 44
Ответы и объяснения 1
Program enot;
Var a: array [1..22] of integer;
i,h,n,k,c:integer;
l:real;
begin
for i:=1 to 22 do
a[i]:=random(51)-25;
for i:=1 to 22 do
begin
if a[i]>0 then begin c:=c+a[i];
k:=k+1;
end;
l:=c/k;
n:=0;
h:=0;
if a[i]<0 then h:=h+1;
if a[i]=0 then n:=n + 1;
end;
writeln(a[i],'среднее арифметическое= ',l:2:2,'; количество отрицательных = ', h,'; количество равных нулю = ',n);
end.
Вот и вторая задача:
Program enot;
Var a: array [1..4,1..4] of integer;
i,j,s,p,h:integer;
o:real;
begin
for i:= 1 to 4 do
for j:= 1 to 4 do
a[i,j]:= random(25)-12;
p:=1;
for i:= 1 to 4 do
begin
s:=s+a[i,3];
p:=p*a[i,i];
end;
writeln('summa= ',s,'; произведение= ',p);
for i:= 1 to 4 do
for j:= 1 to 4 do
begin
h:=h+a[i,j];
o:=h/16;
end;
writeln('среднее арифметическое= ',o);
end.
- 12.10.2017 07:38
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.