Const
M = 3;
N = 4;
Var
A:array[1..M,1..N] of integer;
i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to M do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(71)-30;
Write(A[i,j]:3,' ')
End;
WriteLn;
End;
Write('Номер столбца: ');
For j:= 1 to N do
Write(j:3,' ');
WriteLn;
Write('Искомое кол-во:');
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:3,' ');
End;
End.
Пример:
Исходный массив:
33 -21 -24 4
-20 28 -29 25
-15 -1 11 3
Номер столбца: 1 2 3 4
Искомое кол-во: 1 1 1 3
#include <iostream>
#include <cmath>
using namespace std;
float f(float x);
int main()
{
float x;
cin >> x;
cout << (f(x)) << endl;
}
float f(float x)
{
float y;
float a = 0.65F;
float b = 1.43F;
if (x <= -1)
y = 2 * x + sqrt(b*x + 3);
else if (x < 1)
y = acos(x);
else
y = log(pow((x + a),2));
return y;
}
Держи программу на паскале!!!думаю скрипт вы вряд ли учите
ПС функцию назвал просто L, так как ни один язык программирования не понимает записи функции L(t) да и программа работает!!!!!!!!!
1- это рисунок как получится, а во 2 сама программа :)