Const
M = 3;
N = 4;
Var
A:array[1..M,1..N] of integer;
i,j,k:integer;
Begin
WriteLn('Введите матрицу A(',M,',',N,'):');
For i:= 1 to M do
For j:= 1 to N do
Read(A[i,j]);
WriteLn('Количества положительных элементов в столбцах:');
For j:= 1 to N do
Begin
k:=0;
For i:= 1 to M do
if A[i,j] > 0 then k:=k+1;
Write(k,' ')
End;
End.
А тебе на чом надо зделать програму?с++,паскаль?
Держи! Можно сделать и проще намного, как и говорилось выше, через циклы, но так как тебе такое решение видимо надо, то держи именно такое :)
Ответ:
import math
print('Введите x, y, z, q')
x, y, z, q = map(float,input().split())
print((math.sqrt(x**3)+y**3)/(z**3+q**3))
Объяснение:
Первый не работает. Второй выравнивает содержимое элемента по центру. Третий выравнивает сам элемент.