Где ошибка var a, b: real; c: string; begin writeln('цисло тигров'); read(a); b: =30; if a< =b then writeln('норма'); if a writeln('угроза'); writeln('угроза исчезновения'); read(c); if c='отправить' then writeln('вы выброли отправить'); if c='не отправить' then writeln('вы выброли не отправить'); end; end.

var a,b:real;c:string;
begin 
writeln('Цисло тигров');
Read(a);
b:=30;
if a<=b then
writeln('Норма');
if a>b then begin writeln('Угроза');
writeln('Угроза исчезновения'); end;
read(c);
if c='Отправить' then
writeln('Вы выбрали отправить');
if c='Не отправить' then
writeln('Вы выбрали не отправить');
end.


По сути должна выглядеть так.

1.

var arr: array[1..6] of integer;

var i, summ: integer;

begin

 summ:= 0;

 for i:=1 to 6 do

 begin

   readln(arr[i]);

 end;

   

 for i:=1 to 6 do

   begin

       if arr[i]>4 then

           summ := summ+arr[i];

   end;

   

 writeln(summ);

end.

var arr: array[1..7] of integer;

var i, mult: integer;

begin

 mult:= 1;

 for i:=1 to 7 do

 begin

   readln(arr[i]);

 end;

   

 for i:=1 to 7 do

   begin

       if arr[i]>0 then

           mult := mult*arr[i];

   end;

   

 writeln(mult);

end.

Краткий гайд

i - переменная-счётчикarr - массив, с которым производятся операцииsumm - (в первом задании - переменная, отвечает за сумму элементовmult - (во второй части) отвечает за произведение

#include <iostream>

#include <cstdlib>

#include <ctime>

using namespace std;

int main()

{

   srand(time(NULL));

   int n;

   cin>>n;

   int *arr = new int;

   for(int i = 0;i<n;i++){

       arr[i] = 0+rand()%100;

   }

   int summ = 0;

   int count = 0;

   for(int i = 0;i<n;i++){

       if(arr[i]<78){

           summ+=arr[i];

           count ++;

       }

   }

   double result = summ / count;

   cout<<result;

   return 0;

}

Краткий гайд:

n - переменная, отвечает за размер массива*arr - динамический массив, динамический, потому что нужно задавать его размер.