Первая часть
Program n_1;
var i:integer; B: array[1..7] of real;
begin
for i:=1 to 7 do begin
read(B[i]);
if B[i]<0 then B[i]:=0;
end;
for i:=1 to 7 do write(B[i]:0:5, ' ');
end.
Вторая часть
Program n_2;
var i:integer; a:real; C: array[1..10] of real;
begin
for i:=1 to 10 do begin
read(C[i]);
end;
a:=C[1];
for i:=1 to 10 do if (C[i]>a) then a:=C[i];
writeln(a:0:10);
end.
Ответ:
ок не буду))))))))))))))))))
Путь к файлу не забудь поменять
var
t: text;
st: string;
s, i: integer;
c: char;
begin
s := 0;
st := '';
assign(t, 'ПУТЬ К ФАЙЛУ');
reset(t);
while not eof(t) do
begin
read(t, c);
if (ord(c) <> 13) then
st := st + c
else if TryStrToInt(st, i) then
begin
s := s + i;
st := '';
end
else
st := '';
end;
if TryStrToInt(st, i) then
s := s + i;
close(t);
writeln(s);
end.