Дана программа : дано целое число . если оно является положительным то умножить его на 5​

3. CREATE TABLE

нужны имя полей и тип их данных, например уникальный ID это id = PRIMARY KEY

текст = text , не пустой текст = TEXT NOT NULL ,

числа = REAL,INT время = DATE и т.д

6. SELECT, FROM, GROUP BY, WHERE, ORDER BY, HAVING

7. SELECT - указывает , что извлекать из таблицы, так же может содержать агрегирующие функции и функции времени такие как EXTRACT, DATE_TRUNC

8. FROM - указывает из какой таблицы извлекать, так же можно указать подзапрос

9. WHERE - указывает какие условия нужны для извлечения , которые указаны в SELECT, не может сравнивать агрегирующие функции , для этого есть HAVING, также может содержать подзапрос

10. GROUP BY - групирует по .., HAVING - то же самое , что WHERE , только для агрегирующих функций

11. ORDER BY - использует методы ASC(по возрастанию значений) пример - имя_поле ASC, или DESC(по убыванию значений) - имя_поля DESC

Объяснение:

Будут вопросы напиши в коменты(

program picaso; uses crt;
type matrice=array[1..10,1..10] of integer;
var i,j,n,m,k:integer;
    a:matrice;
procedure rea(var a:matrice);
begin
    writeln('n: ');readln(n);
    writeln('m: ');readln(m);
    writeln('ведите ',n*m,' элементов');
    for i:=1 to m do
        for j:=1 to n do
        begin
            write('A[',i,',',j,']=');
            readln(A[i,j]);
        end;    
end;
procedure writ;
begin
    writeln('Массив A');
    for i:=1 to m do
    begin
        for j:=1 to n do
            write(A[i,j],'    ');
            writeln;
    end;
end;
procedure calc(a:matrice );
begin
    
    for j:=1 to n do
    begin
    k:=0;
        for i:=1 to m do
            
            if a[i,j] > 0 then inc(k);
            writeln('столбец :',j,' положительные элементы : ',k);
    end;
end;
begin clrscr;
    rea(a);
    writ;
    calc(a);
    readln;
end.