a)
const n=5;
var a:array [1..n,1..n] of integer;
i,j,k,s:integer;
begin
writeln('Массив: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(3)-2;
write(a[i,j]:4);
end;
writeln
end;
for j:=1 to n do
begin
k:=0;
for i:=1 to n do
if a[i,j]<0 then k:=k+1;
if k=n then
begin
s:=s+1;
if s=1 then write ('Номера столбцов, все элементы которых отрицательны: ');
write (j,' ')
end
end;
if s=0 then write ('Столбцов, все элементы которых отрицательны - нет');
end.
б)
const n=5;
var a:array [1..n,1..n] of integer;
i,j,kp,ko:integer;
begin
for i:=1 to n do
for j:=1 to n do read (a[i,j]);
writeln('Массив: ');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln
end;
for j:=1 to n do
begin
ko:=0;
kp:=0;
for i:=1 to n do
begin
if a[i,j]<0 then ko:=ko+1;
if a[i,j]>0 then kp:=kp+1
end;
if ko=n then writeln ('В ',j,' столбце все элементы отрицательные');
if kp=n then writeln ('В ',j,' столбце все элементы положительные')
end
end.
У меня определены две функции: y = 5 + 2x и tabulate. Функция tabulate принимает функцию, концы отрезка и количество точек, в которых нужно вычислить значение. Внутри этой функции в цикле вычисляется и выводится значение функции, на каждой итерации к текущему значению аргумента прибавляется (b - a)/n.
Программа (python 3.6):
def y(x):
return 5 + 2 * x
def tabulate(f, a, b, n):
h = (b - a)/n
while a <= b:
print(f"{a:7.4f} {f(a):7.4f}")
a += h
tabulate(y, 1., 10., 9)
Вывод:
1.0000 7.0000
2.0000 9.0000
3.0000 11.0000
4.0000 13.0000
5.0000 15.0000
6.0000 17.0000
7.0000 19.0000
8.0000 21.0000
9.0000 23.0000
10.0000 25.0000