var a: array [1..100] of integer;
i,max,min: integer;
begin
for i:= 1 to 100 do
a[i]:= random(50)-25;
write(a[i]:5);
end;
min:= a[1];
max:= a[1];
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
writeln;
writeln('min = ',min);
writeln('max = ',max);
writeln('min + max = ',min + max);
end.
Ответ:
var a,s,k:integer;
k:=0;
s:=0;
while k<6 do begin
k:=k+1;
read(a);
s:=s+a;
write(s);
Пишу в Pascal
Объяснение:
var
x,f:real;
read(s);
if x>0 then
f:=x
else
f:=-x;
write(f);