Const
m = 6;
n = 4;
var
i, j: integer;
a: array[1..m, 1..n] of integer;
b: array[1..n] of longint;
p: longint;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(100) - 50;
write(a[i, j]:4)
end;
writeln
end;
writeln('Результирующий массив');
for j := 1 to n do
begin
p := 1;
for i := 1 to m do p := p * a[i, j];
b[j] := p;
write(b[j], ' ')
end;
end.
Тестовый пример:
Исходный массив
-22 -23 -14 16
-17 42 -13 19
-35 9 -47 -7
23 -9 19 25
3 -7 -31 43
15 42 40 0
Результирующий массив
-13548150 -23004324 201532240 0
Print("Введите n:")
n = int(input())
s = 0
for i in range(n+1):
s = s+i*i
print("s =",s)
Пример:
<span>Введите n: 3
s = 14</span>
N=7,
1 4 6 7 9 12 17
1)среднее арифметическое = (1+4+6+7+9+12+17)/7 = 8
2)<span>среднее геометрическое = корень седьмой степени из(1*4*6*7*9*12*17)=</span>6.08
3)<span>среднее гармоническое = 7/(1/1+1/4+1/6+1/7+1/9+1/12+1/17) = 3.857</span>
Язык: Паскаль
var t: byte;
begin
readln (t);
if (t<10) then
writeln ('Вы уже проснулись?');
if (t=12) then
writeln ('Не пора обедать?');
if (t>=18) then
writeln ('Ещё не вечер!')
else
writeln ('Как работается?')
end.