посчитайте ​

Пишу на PASCALABC

1)

var

chislo:string;

summa:integer;

begin

chislo='1234';

summa:=0;

for i:=1 to 4 do

begin

summa:=summa+StrToInt(chislo[i]);

end;

writeln(summa);

end.

2)

var

massiv:array [5] of integer;

max,min:integer;

begin

for var i:=1 to 5 do

begin

write('Введите ' , i , '-ое число: ');

readln(massiv[i]);

end;

max:=0;

min:=1000000000;

for var j:=1 to 5 do

begin

if (massiv[j]<min) then min:=massiv[j];

if (massiv[j]>max) then max:=massiv[j];

end;

writeln(min);

writeln(max);

end.