Ребята Даны следующие типы данных:

Type Obiect==(Istoria, Geografia, Matematica, Informatica, Fizica);

Nota=1..10;

SituatiaScolara==array [obiect] of Nota;

Изобразите на рисунке структуру данных типа SituatiaScolara.

2.Найти произведение отрицательных элементов одномерного массива, кратных 6.

3.Дана строка символов ‘ ГРОЗА’, получить ‘ПРОЗА’

правильно треугольник)

program w7w7;

var a: real;

begin

readln (a);

if a< 0 then writeln ('otritsatelnoe chislo');

if a> 0 then  writeln ('pologitelnoe chislo');

end.

поправьте меня если ^ это не указатель стпени, но если это степень то вот просто:

var a,x: extended; n,i: longint; begin    read(x);     read(n);     a: =1;     for i: =1 to n do        a: =a*x;     writeln(a: 0: 0); end.

var i,s : longint; begin  s: =0;   for i: =100 to 999 do s: =s+i;   writeln(s); end.